Nil*_*lox 3 unix shell perl file
我有一个用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
| 归档时间： |
|
| 查看次数： |
202 次 |
| 最近记录： |