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/normalise_am.perl
#!/usr/bin/perl while (<>) { chomp; @s = split; @t = split(/\//, $s[0]); $dir = $t[1]; $val = $s[1]; $scale = 36000 / $val; ($file, $ext) = split(/\./, $t[2]); if (!-d "norm/$dir") {system "mkdir norm/$dir";} system "sox -v $scale final/$dir/$file.wav -r 22050 norm/$dir/$file\_norm.wav"; print "sox -v $scale final/$dir/$file.wav -r 22050 norm/$dir/$file\_norm.wav\n"; }