如何将变量和文件传递给perl -p -e命令
发布时间：2020-12-16 06:05:36 所属栏目：大数据 来源：网络整理
导读：我有一个用perl编写的命令行,它在Solaris中执行(也许这与UNIX类似无关),它每6行插入一个“wait”字符串 perl -pe 'print "waitn" if ($. % 6 == 0);' file 但是,我想用参数(ARGV [0])替换6,结果是这样的： perl -pe 'print "waitn" if ($. % ARGV[0] == 0)
|
我有一个用perl编写的命令行,它在Solaris中执行(也许这与UNIX类似无关),它每6行插入一个“wait”字符串
perl -pe 'print "waitn" if ($. % 6 == 0);' file 但是,我想用参数(ARGV [0])替换6,结果是这样的： perl -pe 'print "waitn" if ($. % ARGV[0] == 0);' file 6 它顺利,给我正确的输出,直到它完成读取文件并将“6”视为下一个文件(即使它之前将其理解为ARGV [0]). 有没有办法使用-p选项并指定哪些参数是文件,哪些参数不是？ 编辑：我认为使用-f选项有问题但是@ThisSuitIsBlackNot指出,我错误地使用了它. 解决方法
-p作为-n的超集,用while(<>){}循环包装代码,该循环从命令行上命名的文件中读取.您需要在进入循环之前提取参数.
perl -e'$n = shift; while (<>) { print "waitn" if $. % $n == 0; print }' 6 file
要么 perl -pe'BEGIN { $n = shift } print "waitn" if $. % $n == 0' 6 file
或者,您也可以使用env var. N=6 perl -pe'print "waitn" if $. % $ENV{N} == 0' file
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |