Question

我在perl中编写了一个在Solaris中执行的命令行（也许这与UNIX类似无关）每隔6行插入一个“wait”字符串

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指出，我错误地使用了它。

Answer 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

或者，您也可以使用env var。

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