perl - 将文件移动到目录

Question

以下构造不起作用有什么原因吗？文件列表包含文件名。名称列表包含一个名称列表，当这些名称作为文件名的子字符串匹配时，会导致循环将文件移动到名为 $name 的目录中。看起来它应该可以工作，但它没有移动文件。有什么更好的方法来构建它？

 FILE: for my $file (@file_list) {

  for my $name (@name_list) {

    if ($file =~ /^\Q$name\E/) {
      rename "/Users/path/to/file/I/need/to/move/$file", "/Users/path/to/directory/i/need/to/move/file/to/$name/$file" or die "rename failed because: $!\n";
     next FILE;
    }
  }
  print "no match for $file\n";
}

Answer 1

正确的代码：

for my $file (@file_list) {
  my $found = 0;
  for my $name (@name_list) {
    if ($file =~ /^\Q$name\E/) {
      print "failed to rename $file\n" unless rename "/Users/path/to/file/I/need/to/move/$file", "/Users/path/to/directory/i/need/to/move/file/to/$name/$file";
      $found = 1;
      last;
    }
  }
  print "no match for $file\n" unless $found;
}