Mercurial > spc_convert

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