Mercurial > spc_convert

comparison 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
comparison
equal deleted inserted replaced
8:a37863126396 9:477c36226481
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 }