Re^2: I have a folder which is having 1200 files,all the file names are have maximum of 8 character length.I need to remove last character from each of the filnames and prefix it with character "A"

[perladdict]

Thanks MidLifeXis, As per your inputs i have tried to implement this,Below is the code i tried it,i am able to succeed to rename all tons of files in my directory.

#!/usr/bin/perl

$dir = "C:\\Users\\user\\Desktop\\test";

opendir DIR, $dir or die "error: cannot open directory \"$dir\" $!";

@files = sort grep (!/^\.$|^\.\.$/, readdir(DIR));

closedir (DIR);

foreach $fl(@files) {

  if($fl =~ m/\.doc/) {
     @a = split(/\.doc/,$fl);
      foreach $len(@a) {
          $z = length $len;
             if($len <= $z) {

                @x = substr($len,0,7); 

                    foreach $mod(@x) {
                       $mod = "A".$mod.".doc";
                        rename $fl,$mod;
                       }    
                  }  
             
             }
      }
}