изменить имя файла в директории

Question

Мне нужно изменить часть названия файлов в директории, я использую следующий код, но он только печатает в терминале модификация строки, но не сохранить его

my @files = glob("*.grb *.out"); 
foreach my $file (@files) { 
    print "$file\n"; 
    s/d02/d03/g; 
} 

Как я могу получить их со строкой d03 вместо g d02?

Answer 1

my @files = glob("*.grb *.out"); 
foreach my $file (@files) { 
    (my $newName = $file) =~ s/d02/d03/g; 
    rename $file, $newName; 
} 

Или если у вас есть Perl 5.14+,

my @files = glob("*.grb *.out"); 
foreach my $file (@files) { 
    my $newName = $file =~ s/d02/d03/gr; 
    rename $file, $newName; 
} 

Это будет переименовать все файлы в *d02**d03* файлы (на диске).