#!/usr/local/bin/perl -w

use Cwd;

#Get directory contents
my $thisDir=cwd();
opendir(MYDIR,$thisDir) || die "Cannot open local directory";
my @fileList=readdir(MYDIR);
closedir(MYDIR);

#Look for image files (.rgb, .gif, .xwd, .ps)
my $imageType = 'nil';
my $a=0;
while ($imageType =~ 'nil' && $a <= $#fileList){
  if ($fileList[$a] =~ '.rgb'){$imageType = 'rgb'}
  if ($fileList[$a] =~ '.gif'){$imageType = 'gif'}
  if ($fileList[$a] =~ '.xwd'){$imageType = 'xwd'}
  if ($fileList[$a] =~ '.ps'){$imageType = 'ps'}
  $a = $a+1;
}
if ($imageType =~ 'nil'){
  print "Cannot find image file (rgb, gif, xwd, ps) in local directory\n";
  exit;}
else{
  print "Processing $imageType files ...\n";
}
foreach my $file (@fileList){
  if ($file =~ "$imageType"){
    my @nameSplit = split(/\./, $file);
    my $fileNo = $nameSplit[$#nameSplit-1];
    if ($fileNo < 10){
      $fileNo = "000"."$fileNo"}
    elsif ($fileNo < 100){
      $fileNo = "00"."$fileNo"}
    elsif ($fileNo < 1000){
      $fileNo = "0"."$fileNo"
    }
    my $fileName = "$nameSplit[0]".".$fileNo".".$imageType";
    print "Moving $file -> $fileName ... ";
    rename("$file","$fileName");
    print "done\n";
  }
}