在perl脚本中运行awk命令

Question

想在perl中的backtik运算符中运行awk命令。它给了我一个错误。我试图逃避报价，管道，但似乎没有任何效果。

my @fieldCnt=`head -1 $inputFileDir/$cmdParams{mas}|awk -F, \'print NF\'`;

Answer 1

我只是在perl脚本中执行它而不是使用awk。如果我理解你想要实现的目标，那么你正在寻找用逗号分隔的行中的项目数，然后

 # Open the file for reading
 open my $fh,"$cmdParams{mas}" or die "Unable to open: $cmdParams{mas}";
 my $firstLine = <$fh>;  # Get the first line
 close($fh);  # close the file
 my @items = split(',',$firstLine);  # Get the items separated by comma's
 $numberOfFields = scalar(@items);   # Get the count of the number of items

希望这很有帮助。