perl - 在perl中执行命令时使用管道

Question

我想在 perl 中使用以下命令，但它给我错误

system("zcat myfile.gz | wc > abc.txt");

但是当我运行这个时我得到了错误意外标记“|”附近的语法错误

即使我删除了 >abc.txt，我仍然会遇到错误。

我们可以在系统命令中使用管道吗？

错误详情如下:

sh: -c: line 1: syntax error near unexpected token `|'
sh: -c: line 1: ` | wc '

Answer 1

下次，测试您的演示程序以确保它确实表现出您所说的行为。你实际上跑了一些更接近

while (my $file_name = <>) {
   system("zcat $file_name | wc > abc.txt");
}

其中有两个错误:

• 您没有删除结尾的换行符，因此 shell 正在尝试执行

  zcat def.gz
   | wc >abc.txt
  

  代替

  zcat def.gz | wc >abc.txt
  

• 在嵌入命令之前，您没有将文件名转换为 shell 文字。

  考虑如果文件名包含空格会发生什么。你会执行

  zcat def ghi.gz | wc >abc.txt
  

  代替

  zcat 'def ghi.gz' | wc >abc.txt
  

解决方法:

use String::ShellQuote qw( shell_quote );

while (my $file_name = <>) {
   chomp($file_name);
   system("zcat -- ".shell_quote($file_name)." | wc > abc.txt");
}