将文件移动到目录

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; 
}