Mercurial > spc_convert

comparison old/spcconvert.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 = "A";
9
10 for (@files){
11 if ($_=~m/\.spc$/) {
12 #print "$_\n";
13
14 $base = $_;
15 $base =~ s/\.spc//;
16 system("spcplay -z $base.spc -w $base.wav\n");
17
18 }
19
20
21
22 }