Mercurial > spc_convert
diff old/remname.pl @ 9:477c36226481 tip
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 diff
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