fNameChange.pl

#!/usr/bin/perl

# Written by Daniel Kemper, http://dankemper.net, 2006

use File::Copy;

use strict();

my(@fNameArry);
my(@newFName);
my($singlefName);
my($newFCtr) = 0;
my($tmpName);
my(@newNames) = `ls -1 | grep -E 'ogg|m3u'`;

foreach $element (@newNames) {
   $element =~ s/\s//g;
   $element =~ s/\n//g;
   $newFName[$newFCtr] = $element;
   $newFCtr++;   
}

$newFCtr = 0;
@fNameArry=`ls -1 . | grep -E 'ogg|m3u'`;

while(<@fNameArry>) {
   $fNameArry[$newFCtr] =~ s/\n//;
   $newFCtr++;
}

$newFCtr = 0;

print "\nRenaming files now ...\n";

foreach $singleFName (@fNameArry) {
   
   if (defined($singleFName))
   {   
	rename($singleFName, $newFName[$newFCtr]) or die "\nCannot rename file " . $singleFName;
   	$newFCtr++;
   }  
}

print "\n" . "Script Complete.\n"; 
# end script