修改文件的名称在目录

Question

我需要修改的文件名称的一部分目录中，我用下面的代码，但它只是在终端打印字符串的修改，但不保存它

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

我怎样才能让他们与字符串d03而不是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*文件（磁盘上）。