Mercurial > spc_convert
annotate 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 |
| rev | line source |
|---|---|
| rlm@9 | 1 |
| rlm@9 | 2 |
| rlm@9 | 3 $dir='./'; |
| rlm@9 | 4 opendir DIR, $dir; |
| rlm@9 | 5 @files=grep !/^\./, readdir(DIR); |
| rlm@9 | 6 $" = "\n"; |
| rlm@9 | 7 #print "@files"; |
| rlm@9 | 8 $name = "AA"; |
| rlm@9 | 9 |
| rlm@9 | 10 for (@files){ |
| rlm@9 | 11 if ($_=~m/\.spc$/) { |
| rlm@9 | 12 #print "$_\n"; |
| rlm@9 | 13 rename "C:/spc700/$_", "C:/spc700/$name.spc"; |
| rlm@9 | 14 $name++; |
| rlm@9 | 15 |
| rlm@9 | 16 |
| rlm@9 | 17 |
| rlm@9 | 18 |
| rlm@9 | 19 } |
| rlm@9 | 20 |
| rlm@9 | 21 |
| rlm@9 | 22 |
| rlm@9 | 23 } |