AWK如何打印多个信息并将所有信息重定向到文本文件

Question

在此方面需要帮助，我正在创建一个脚本，该脚本将分析文件，并希望使用Awk在输出txt文件中打印2条信息。我能够打印该信息没有人在我的屏幕上寻找内容，但是如何使用同一Awk打印另一个信息（例如，我分析的文件的行数），并将这两个信息输出到我使用此代码和erreor代码尝试过的文件teste.txt中：操作员期望

#!/usr/bin/perl

if ($#ARGV ==-1)
{
    print "Saisissez un nom de fichier a nalyser \n";
}
else
{
    $fname = $ARGV[0];
    open(FILE, $fname) || die ("cant open \n");
}
while($ligne=<FILE>)
{
    chop ($ligne);
    my ($elemnt1, $ellement2, $element3) = split (/ /, $ligne_);
}
system("awk '{print \$2 > "test.txt"}' $fname");

Answer 1

尝试转义最后一行的引号，因此test.txt实际上在传递给system的字符串中。

system("awk '{print \$2 > \"test.txt\"}' $fname");

编辑：将行数添加到同一文件

在执行END规则时，Awk变量NR最终将保持输入中的行数。 尝试这个：

$outfile = '"test.txt"';
system("awk '{print \$2 > $outfile} END {print NR > $outfile}' $fname");

笔记：

1. 请注意 ， $outfile中没有任何有趣的字符。
2. 不同于壳，这是完全可以放心使用>两次。 看这里。