perl - 在 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

希望这会有所帮助。