在Perl的AWK？我有一个AWK命令行.我不知道如何在Perl脚本中使用它

Question

我的AWK命令是:

awk'BEGIN {count=0} {count=count+($3-$2)} END {print count}' zebrafish

如何在Perl脚本中使用它？

Answer 1

我认为没有必要使用awk内部perl.相同的功能可以完全在perl如下实现

open my $fopen, '<', zebrafish or die $!;
my $count = 0;
while (<$fopen>) {
    $count += $3-$2 if /(\S+)\s+(\S+)\s+(\S+)/;
}
print "count = $count\n";
close $fopen;

如果你还想使用 awk

您可以使用system函数awk从Perl脚本调用任何shell命令

system("<awk_command>");

如果你想要输出awk存储在变量里面perl然后使用

my $awk_output = `<awk_command>`;

另外,您的awk命令可以压缩为

awk'{count+=($3-$2)} END {print count}' zebrafish