Переместить файлы в каталоги

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