Mercurial > spc_convert
annotate old/spcconvert.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 = "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 } |