Comments on: Bulk rename files

By: Ashwin

Ashwin — Mon, 11 Feb 2008 23:53:01 +0000

And here I was thinking I dont have work….:)

By: Vineet

Vineet — Sat, 09 Feb 2008 03:32:15 +0000

hmm..my script doesn’t take regex args..aaah too lazy to work it out..

By: Vineet

Vineet — Sat, 09 Feb 2008 03:10:20 +0000

Anything with files…perl rules .. :)

By: Vineet

Vineet — Sat, 09 Feb 2008 03:09:33 +0000

$args = $#ARGV + 1;
if($args < 2)
{
print “USAGE: “,$0,” “,”\n”;
exit();
}

use Cwd;
my $dir = getcwd();
opendir MYDIR, $dir;
@contents = readdir MYDIR;
foreach $file (@contents)
{
$name = $file;
if($name =~ m/(.*)($ARGV[0])(.*)\.($ARGV[1])$/)
{
print “Found match!\n”;
if(defined($1)) {$name=$1;}
if(defined($2)) {$name .= $3;}
$name .= “.”.($ARGV[1]);
rename($file,$name);
print “Renamed “,$file,” to “,$name,”\n”;
}
}
closedir MYDIR;