perl - 如何检测程序是否在 PAR 存档中运行？

Question

我正在开发一个与PAR捆绑在一起的大型 Perl 应用程序，以及一堆支持文件。

当应用程序在 PAR 中运行时，我可以使用它PAR::read_file来获取存档中的这些不同文件。但是，在我进行开发时，我不想每次调整一些代码时都重新 PAR 整个应用程序。

有没有办法在运行时判断脚本是否在 PAR 中运行，所以我可以选择从 PAR 存档或常规文件系统加载文件？

Answer 1

PAR::Environment可能会提供一些线索：

PAR 在可执行文件或 PAR 档案的构建过程和使用它们的过程中使用各种环境变量。

...

PAR_0

如果正在运行的程序是从 PAR 存档或 pp 生成的可执行文件中运行的，则此变量包含提取程序的名称（即 .pl 文件）。