【发布时间】:2013-04-14 19:06:22
【问题描述】:
在这方面需要帮助 我正在创建一个脚本来分析文件并希望使用 Awk 在输出 txt 文件中打印 2 个信息 我能够打印没有人在我的屏幕上寻找的信息,但是如何使用相同的 Awk 打印另一个信息(例如我分析的文件的行数)并将这两个信息输出到文件 calle test.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");
【问题讨论】:
-
为什么不简单地用 Perl 做所有事情呢?调用
awk来打印文件的第二列似乎很愚蠢。 Perl 是 awk 的超集。甚至还有一个命令可以将 awk 脚本转换为 Perl,名为a2p,它可能已经在您的系统上。