將文件移動到目錄

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