Berikut ini skrip sederhana yang dapat Anda gunakan. Saya suka menggunakan modul non-standar File::chdir
untuk menangani cd
operasi pengelolaan , jadi untuk menggunakan skrip ini apa adanya Anda perlu menginstalnya ( sudo cpan File::chdir
).
use strict;
use warnings;
use File::Copy;
use File::chdir;
die "Usage: $0 dir prefix" unless (@ARGV >= 2);
my ($dir, $pre) = @ARGV;
opendir(my $dir_handle, $dir) or die "Cannot open directory $dir";
my @files = readdir($dir_handle);
close($dir_handle);
$CWD = $dir;
foreach my $file (@files) {
next if ($file =~ /^\.+$/);
next if ($0 =~ /$file/);
move($file, $pre . $file) or warn "Cannot rename file $file: $!";
}