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/massmove.perl~
#!/usr/bin/perl while (<>) { chomp; @slash = split(/\//); @dot = split(/\./, $slash[$#slash]); @under = split(/\_/, $dot[0]); if (/LNK/) { $wordId = $under[1]; $wordCode = $under[2]; $subDir = "linked\/"; } elsif (/ALT/) { $wordId = $under[1]; $wordCode = $under[2]; $subDir = "alternate\/"; } else { $wordId = $under[0]; $wordCode = $under[1]; $subDir = ""; } if ($wordId < 1201) {$outDir = "00001_01200_orig";} elsif ($wordId < 2401) {$outDir = "01201_02400_orig";} elsif ($wordId < 3601) {$outDir = "02401_03600_orig";} elsif ($wordId < 4801) {$outDir = "03601_04800_orig";} elsif ($wordId < 5801) {$outDir = "04801_05800_orig";} elsif ($wordId < 7601) {$outDir = "05801_07600_orig";} elsif ($wordId < 8635) {$outDir = "07601_08635_orig";} if (-f "showme") {print "$wordId\n";} system "cp $_ $outDir/$subDir$wordId\_$wordCode.wav"; }