在编译的Perl脚本上指定-p选项

我对“PAR::Packer”了解不多,但如果你给剧本一句话

#! windows/ignores/this -p
...

PAR::Packer

如果不是,你可以转换一个 -p 将脚本转换成正则脚本,如下所示:

perl -MO=Deparse -p myscript-p.pl > myscript-no-p.pl

*-除非你的剧本有不寻常的结构 B::Deparse 不能正确脱毛

这个 -p equivalent code

LINE:
  while (<>) {
      ...             # your program goes here
  } continue {
      print or die "-p destination: $!\n";
  }

(如果Perl 5.22或较新,请考虑使用 <<>> 而不是 <>