1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/old/remname.pl	Fri Oct 21 07:46:18 2011 -0700
     1.3 @@ -0,0 +1,23 @@
     1.4 +
     1.5 +
     1.6 +$dir='./';
     1.7 +opendir DIR, $dir;
     1.8 +@files=grep !/^\./, readdir(DIR);
     1.9 +$" = "\n";
    1.10 +#print "@files";
    1.11 +$name = "AA";
    1.12 +
    1.13 +for (@files){
    1.14 +	if ($_=~m/\.spc$/) {
    1.15 +        #print "$_\n";
    1.16 +		rename "C:/spc700/$_", "C:/spc700/$name.spc";
    1.17 +		$name++;
    1.18 +		
    1.19 +		
    1.20 +        
    1.21 +	
    1.22 +		}
    1.23 +		
    1.24 +		
    1.25 +		
    1.26 +}
    1.27 \ No newline at end of file