Mercurial > spc_convert

view old/remname.pl @ 9:477c36226481 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added old scripts for historical interest.
author Robert McIntyre <rlm@mit.edu>
date Fri, 21 Oct 2011 07:46:18 -0700
parents
children
line wrap: on
line source
     1 



     2 



     3 $dir='./';



     4 opendir DIR, $dir;



     5 @files=grep !/^\./, readdir(DIR);



     6 $" = "\n";



     7 #print "@files";



     8 $name = "AA";



     9 



    10 for (@files){



    11 	if ($_=~m/\.spc$/) {



    12         #print "$_\n";



    13 		rename "C:/spc700/$_", "C:/spc700/$name.spc";



    14 		$name++;



    15 		



    16 		



    17         



    18 	



    19 		}



    20 		



    21 		



    22 		



    23 }