|
#!/usr/local/bin/perl -w
use Getopt::Long;
use File::Basename;
my $ret = GetOptions ("e|extension:s");
my $ext = $opt_e || die "Usage: $0 -e Extension\n";
my $filename;
opendir (DIR, ".") || die "Can't open directory . $! \n";
my @filelist = grep (/$ext$/, readdir (DIR));
closedir (@filelist);
for $filename (@filelist)
{
my $base = basename($filename, $ext);
print "Renaming $filename -> $base\n";
if (!rename $filename, $base)
{
print "Could not rename file $filename : $!\n";
}
}
|