如何将参数从 perl 脚本传递到 bash 脚本

Question

我试图在 perl 中使用 grep，但我必须从 perl 接收参数才能将它们与 grep 选项一起使用，我这样做

#!/usr/bin/perl 
system(grep -c $ARGV[0] $ARGV[1]);

会引发错误，这如何实现？

Answer 1

system('grep', '-c', $ARGV[0], $ARGV[1]);

但请考虑这是否是您想要做的。 Perl 可以自己做很多事情，而不需要调用外部程序。

Answer 2

system() 的参数必须是一个字符串 (或字符串列表）。尝试：

#!/usr/bin/perl 
system("grep -c $ARGV[0] $ARGV[1]");

Answer 3

您可能无法从该代码中得到您所期望的结果。来自perldoc -f system：

The return value is the exit status of the program as returned by 
the "wait" call.  

system实际上不会为您提供来自grep的计数，而只是来自grep进程的返回值。

为了能够在 perl 中使用该值，请使用 qx() 或反引号。例如，

my $count  = `grep -c ... `;
# or
my $count2 = qx(grep -c ...);

请注意，这将在数字后给您一个换行符，例如“6\n”。

但是，为什么不全部使用perl呢？

my $search = shift;
my $count;
/$search/ and $count++ while (<>);
say "Count is $count";

不过，由菱形运算符 <> 执行的隐式 open 如果落入坏人之手，可能会很危险。您可以使用三参数打开方式手动打开文件：

use autodie;
my ($search, $file) = @ARGV;
my $count;
open my $fh, '<', $file;
/$search/ and $count++ while (<$fh>);
say "Count is $count";