Re: How do I do a bulk rename?


Do you know where your variables are?
	PerlMonks

Re: How do I do a bulk rename?

by kryberg (Pilgrim)

on Oct 23, 2002 at 15:10 UTC ( [id://207415]=note: print w/replies, xml )

Need Help??

in reply to How do I do a bulk rename?

#!/usr/bin/perl -w
# rename all files with a certain extention in a directory

use strict;

my $dirname;
$dirname = '/substitue_your_path_here';

opendir(DIR, $dirname) or die "Can't opendir $dirname: $!";

while ( defined (my $file = readdir DIR) ) {
        # ignore current and parent directory . and ..
        next if $file =~ /^\.\.?$/;
        my $new = $file;
        # substitute new file extension
        $new =~ s/\.old_extension$/\.new_extension/;
        rename($file,$new)
}
[download]

Reference Perl Cookbook Chapter 9 and Programming Perl Chapter 29