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

我有一个用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指出,我错误地使用了它.

-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