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

前端之家收集整理的这篇文章主要介绍了如何将变量和文件传递给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
原文链接:/Perl/778762.html

猜你在找的Perl相关文章