使用“perl-ne”时,如何指定“before the loop”代码?

把你的额外代码偷偷输入 -M 选项

perl -M'Module;SETUP CODE' -ne 'LOOP CODE'

$ perl -MO=Deparse -M'MyModule;$SETUP=1' -ne '$LOOP=1}{$FINAL=1'
use MyModule;
$SETUP = 1;
LINE: while (defined($_ = <ARGV>)) {
    $LOOP = 1;
}
{
    $FINAL = 1;
}
-e syntax OK

写 BEGIN 和 END 没有仪式的街区:

$ perl -lne 'BEGIN { print "hi" }
             print if /gbacon/;
             END { print "bye" }' /etc/passwd
hi
gbacon:x:700:700:Greg Bacon,,,:/home/gbacon:/bin/bash
bye

将您的额外代码放入模块中并使用 ‑M . 在循环之前运行。

你甚至可以通过 $ENV{PERL5OPT} 尽管开关相当有限;不 ‑e 或 ‑E 例如。

我想你可以做些无耻的事 $ENV{PERL_ENCODING} 如果你真的想的话。

这就是全部 Acme:: 领土。 拜托 不。

编辑: 这个 只有 我最喜欢的解决方案是非常不具创造性和完全直截了当的 INIT{} .

删除-n并添加 while (<>) { … } . 什么?它比 BEGIN 事情。

也许有一些模糊的方法来实现这一点 -ne 但是,是的,仅仅使用它就容易多了 perl -e 和代码 while(<>) 你自己。

在命令行上可以有多个-e开关。

假设测试包含

1
2
3
4

perl -e '$a=5;' -ne '$b+=$_ + $a}{print "$b\n"' test

将打印30。