Perl: 运行system `cp $file $dir`错误：perl cp missing destin

某个Perl脚本，在其中要运行一个shell指令，然后获取shell的输出结果，方法是用system调用

my @lines  =  `cmd`;

shell输出结果是多个文件的路径，我遍历这些文件，将它们拷贝到制定目录中去

foreach my $line (@lines){
      system `cp $line $dir`;
}

结果运行当中总是提示：perl cp missing destination file operand after

也就是说cp $line $dir中的$dir根本就没有作为cp命令的第二个参数来解析。

表面上看这个脚本语句没有错误，实质上存在漏洞，即$line是从shell输出中提取的，shell输出本身就存在换行符，这些换行符会被脚本解析为命令结束。

所以语句

cp $line $dir被理解为 cp $line 【执行】$dir 【执行】，导致一条命令分为两个命令解析。

解决问题的方法是删除$line里面的换行符。

修改如下：

foreach my $line (@lines){
      $line =~ s/[rn]//g;
      system `cp $line $dir`;
}