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/wav2mp3.perl~
#!/usr/bin/perl $inFile = $ARGV[0]; $debug = $ARGV[1]; @a = split(/\_/, $inFile); @b = split(/\//, $a[0]); $wordId = $b[$#b]; $outFileDir = "/mnt/unagi/spd25/htdocs/nahuatl/hyperlexdict/sounds/citations/am"; $cmd2 = "/pkg/ldc/bin/sox -v $normScale $outFileDir/wav/$inFile -r 44100 -t wav - | /pkg/ldc/mpeg_audio_encoder/BladeEnc stdin $outFileDir/mp3/$wordId\_am.mp3"; if ($debug) {print "$cmd2\n" } else {system $cmd2; }