如何将变量和文件都传递给 perl -p -e 命令答案

【问题标题】：How to pass both variables and files to a perl -p -e command如何将变量和文件都传递给 perl -p -e 命令
【发布时间】：2016-03-05 16:11:14
【问题描述】：

我有一个用 perl 编写的命令行，在 Solaris 中执行（也许这与 UNIX 类似）每 6 行插入一个“等待”字符串

perl -pe 'print "wait\n" if ($. % 6 == 0);' file

但是，我想用一个参数 (ARGV[0]) 替换那个 6，结果是这样的：

perl -pe 'print "wait\n" if ($. % ARGV[0] == 0);' file 6

一切顺利，给了我正确的输出，直到它完成读取文件并将“6”视为下一个文件（即使它之前将其理解为ARGV[0]）。

有没有办法使用-p 选项并指定哪些参数是文件，哪些不是？

已编辑：我认为使用 -f 选项存在问题，但正如 @ThisSuitIsBlackNot 指出的那样，我使用错误。

【问题讨论】：

你想用-f做什么？我不认为它做你认为它做的事。见perldoc perlrun。
我明白了，你说得对，我认为它是从文件中读取的。但是，我会修改这个问题，因为它不是原因。谢谢
@Nilox Pass ARGS 在文件 perl -spe 'print "wait\n" if (($. % $arg)==0);' -- -arg=6 file 之前。抱歉，这行得通，我之前不在 perl 上。
另见Using -e and -s switch in perl
总是启用警告，即使（特别想说）在 oneliners 中

【解决方案1】：

-p，作为-n 的超集，使用while (<>) { } 循环包装代码，该循环从命令行指定的文件中读取。您需要在进入循环之前提取参数。

perl -e'$n = shift; while (<>) { print "wait\n" if $. % $n == 0; print }' 6 file

或

perl -pe'BEGIN { $n = shift }  print "wait\n" if $. % $n == 0' 6 file

或者，您也可以使用环境变量。

N=6 perl -pe'print "wait\n" if $. % $ENV{N} == 0' file

【讨论】：