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\/"; $wordTag = "LNK_"; } elsif (/ALT/) { $wordId = $under[1]; $wordCode = $under[2]; $subDir = "alternate\/"; $wordTag = "ALT_"; } else { $wordId = $under[0]; $wordCode = $under[1]; $subDir = ""; $wordTag = ""; } if ($wordId < 2401) {$outDir = "00001_02400_norm_am";} elsif ($wordId < 4801) {$outDir = "02401_04800_norm_am";} elsif ($wordId < 7601) {$outDir = "04801_07600_norm_am";} elsif ($wordId < 8636) {$outDir = "07601_08635_norm_am";} #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 "mv $_ $outDir/$wordTag$wordId\_$wordCode.wav"; # print "\n"; }