Mercurial > spc_convert
comparison convert.pl @ 5:b6e64e348e47
script will restore lost files now
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 21 Oct 2011 07:12:40 -0700 |
parents | 87e64f302234 |
children | a012d31df380 |
comparison
equal
deleted
inserted
replaced
4:87e64f302234 | 5:b6e64e348e47 |
---|---|
134 Win1.wav | 134 Win1.wav |
135 Win2.wav | 135 Win2.wav |
136 Winters.wav | 136 Winters.wav |
137 YourSanctuary1.wav | 137 YourSanctuary1.wav |
138 YourSanctuary2.wav | 138 YourSanctuary2.wav |
139 Zombies.wavAA.spc); | 139 Zombies.wav); |
140 | 140 |
141 @sources = qw( | 141 @sources = qw( |
142 AA.spc | |
142 AB.spc | 143 AB.spc |
143 AC.spc | 144 AC.spc |
144 AD.spc | 145 AD.spc |
145 AE.spc | 146 AE.spc |
146 AF.spc | 147 AF.spc |
276 FF.spc); | 277 FF.spc); |
277 | 278 |
278 | 279 |
279 for (0..$#targets){ | 280 for (0..$#targets){ |
280 | 281 |
281 $command = "./build/spc_convert -s 1" . " -i ./test-files/" . $source[$_] . | 282 |
282 " -o ./output/" . $target[$_]; | 283 $command = "./build/spc_convert -s 100" . " -i ./test-files/" . $sources[$_] . |
284 " -o ./output/" . $targets[$_]; | |
283 print "$command\n"; | 285 print "$command\n"; |
284 | 286 |
287 `$command`; | |
288 | |
285 } | 289 } |
286 | 290 |