Perl 系统命令更改变量值并引发错误

Question

我有以下脚本：

#! /bin/env perl 

use File::Basename;
my @log_files;
my $log_dir = "/tmp/";
my $path = "find_failing/";
$log_files[0] = (`find $path -name compile.log -print0`)[0];
$log_files[1] = (`find $path -name sim.log     -print0`)[0];
my $rev = "100";

print "@log_files << \n";

foreach (@log_files) {
   if (-f $_) {
      chomp;
      my $dirn = sprintf "%s/%s.%s", $log_dir, basename ($_), $rev;
      chomp $dirn;
      my $cmd = "cp -v $_ $dirn";
      chomp $cmd;
      print "C: $cmd\n";
      system ($cmd);
      system ("cp", "-v", $_, $dirn);
      system ("echo");
   }
}

当我运行它时，我得到以下输出：

find_failing/simulation/tc_ctrl.rtl/compile/compile.log find_failing/simulation/tc_ctrl.rtl/test_prbs.nrz.16.prbs23/sim.log << 
C: cp -v find_failing/simulation/tc_ctrl.rtl/compile/compile.log /tmp//compile.log.100
cp: missing destination file operand after `find_failing/simulation/tc_ctrl.rtl/compile/compile.log'
Try `cp --help' for more information.
`find_failing/simulation/tc_ctrl.rtl/compile/compile.log' -> `/tmp//compile.log'

C: cp -v find_failing/simulation/tc_ctrl.rtl/test_prbs.nrz.16.prbs23/sim.log /tmp//sim.log.100
cp: missing destination file operand after `find_failing/simulation/tc_ctrl.rtl/test_prbs.nrz.16.prbs23/sim.log'
Try `cp --help' for more information.
`find_failing/simulation/tc_ctrl.rtl/test_prbs.nrz.16.prbs23/sim.log' -> `/tmp//sim.log'

命令的打印显示了我想要的变量的正确扩展。但是，当使用 system() 运行时，它会抛出一个错误，指出缺少目标。

此外，当我通过将命令作为列表提供命令来发出命令时，会发生复制，但目标路径缺少作为 $dirn 一部分的“.$rev”。

我使用 v5.8.8 和 v5.24.0 运行，得到相同的输出。

发生了什么？为什么 system() 会这样？

谢谢。

Answer 1

-print0 打印 NUL 后跟的路径，所以

• $log_files[0] 包含

  find_failing/foo/compile.log<NUL>find_failing/bar/compile.log<NUL>
  

• $log_files[1] 包含

  find_failing/foo/sim.log<NUL>find_failing/bar/sim.log<NUL>
  

替换

$log_files[0] = (`find $path -name compile.log -print0`)[0];
$log_files[1] = (`find $path -name sim.log     -print0`)[0];

与

( $log_files[0] ) = split /\0/, `find $path -name compile.log -print0`;
( $log_files[1] ) = split /\0/, `find $path -name sim.log     -print0`;

或

$log_files[0] = `find $path -name compile.log -print0`;
$log_files[1] = `find $path -name sim.log     -print0`;

s/\0.*//s for @log_files;