如何指定“循环之前”使用“perl -ne”时的代码？

Question

使用“perl -ne”时如何指定“循环之前”代码，而不求助于 BEGIN/END 块或用实际拼写的 while 循环替换“-n”？

详细解释一下：

比如说，我有以下 Perl 代码：

use MyModule;
SETUP_CODE;
while (<>) {
    LOOP_CODE;
}
FINAL_CODE;

如何使用 perl -ne 将其替换为单行代码？

当然，循环部分由 -n 本身处理，而 FINAL_CODE 可以使用添加“} { FINAL_CODE”的技巧来完成“ 在最后;而use语句可以通过“-M”参数来处理。

因此，如果循环之前没有 SETUP_CODE，我可以编写以下内容：

perl -MMyModule -ne 'LOOP_CODE } { FINAL_CODE'

但是，我们如何在此处插入 SETUP_CODE 呢？

我唯一的想法是尝试通过 BEGIN{} 块在循环之后添加它，

perl -MMyModule -ne 'LOOP_CODE } BEGIN { SETUP_CODE } { FINAL_CODE'

但这似乎充其量是hacky。

还有其他解决方案吗？

澄清一下 - 我已经知道我可以通过拼写出while循环而不是使用“-n”来做到这一点”或使用 BEGIN/END 块（甚至可能同意从某些角度来看，执行“while”可能更好）。

我感兴趣的是是否有不同的解决方案。

Answer 1

也许有一些晦涩的方法可以用 -ne 来实现这一点，但是，是的，使用 perl -e 和 while(< ;>) 你自己。

Answer 2

您可以在命令行上使用多个 -e 开关。

假设测试包含

1
2
3
4

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

将打印 30。

Answer 3

无需仪式即可编写 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

Answer 4

将额外的代码隐藏到 -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

Answer 5

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

您甚至可以通过 $ENV{PERL5OPT} 潜入一些东西，尽管开关非常有限；例如，没有 -e 或 -E。

我想如果你真的愿意的话，你也可以用 $ENV{PERL_ENCODING} 做一些离谱的事情。

这就是Acme:: 的全部领域。 请不要这样做。 ☹

编辑：我唯一喜欢的解决方案是非常没有创意且完全简单的INIT{}。

Answer 6

删除 -n 并添加 while (<>) { ... }。
什么？它比 BEGIN 更短、更直接。