Technology Notebook

Perl::Script::Rename Files

Below is a sample script depecting file directory operations. This was a fast and dirty script to rename files into a different name format. It doesn't deal with name collisions when users have same last name. I only had a handful of them to deal with:

$indir = 'c:\\dev\\picname\\input';
$outdir = 'c:\\dev\\picname\\output';

opendir(DIR, "$indir");
my @files = readdir(DIR);
closedir(DIR);

my $file;

foreach $file (@files) {
if ($file eq ".") {next};
if ($file eq "..") {next};
#input filename
my $infile = "$indir\\$file";

#output filename

my @temp = split(/(,\s|\s)/,$file);

my $newfile = "$outdir\\P-$temp[0].jpg";

print "$infile --> $newfile\n";

rename ($infile, $newfile);

}#end foreach $file