Tryag File Manager
Home
-
Turbo Force
Current Path :
/
home
/
cluster1
/
data
/
bu01
/
1121861
/
html
/
poser
/
Foley programs and data
/
spd24_nahuatl_dat_am
/
Upload File :
New :
File
Dir
/home/cluster1/data/bu01/1121861/html/poser/Foley programs and data/spd24_nahuatl_dat_am/redo.perl
#!/usr/bin/perl $inFile = $ARGV[0]; $debug = $ARGV[1]; @a = split(/\_/, $inFile); $wordId = $a[1]; $outFileDir = "/mnt/unagi/spd25/htdocs/nahuatl/hyperlexdict/sounds/citations/am"; $normVal = `echo $inFile | shloop -f get-min-max.shl | cutc 2`; $normScale = 36000 / $normVal; $cmd1 = "/pkg/ldc/bin/sox -v $normScale $inFile -r 22050 $outFileDir/wav/$wordId\_am.wav"; $cmd2 = "/pkg/ldc/bin/sox -v $normScale $inFile -t wav - | /pkg/ldc/mpeg_audio_encoder/BladeEnc stdin $outFileDir/mp3/$wordId\_am.mp3"; if ($debug) {print "$cmd1\n$cmd2\n" } else {system $cmd1; system $cmd2; }