in einem Verzeichnisnamen von Dateien ändern

Question

Ich brauche einen Teil des Namens von Dateien in einem Verzeichnis zu ändern, verwende ich den folgenden Code, aber es druckt nur in Terminal der Zeichenfolge die Änderung aber nicht

speichern

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

Wie kann ich sie mit der Zeichenfolge d03 anstelle von d02 bekommen?

Answer 1

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

Oder wenn Sie Perl haben 5.14+,

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

Dadurch werden alle *d02* Dateien *d03* Dateien (On-Disk) umbenennen.