- Timestamp:
- 05/20/08 12:57:22 (7 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Dictionary.pm
r2586 r2588 114 114 $word = shift @line; 115 115 $phonemes = join(" ",@line); 116 write MISSINGWORDSOUT; 117 write LOG; 116 # !!!!!! 117 if (length($word)<15) { # 118 write MISSINGWORDSOUT; 119 write LOG; 120 } else { 121 print MISSINGWORDSOUT "$word [$word] $phonemes\n"; 122 print LOG "$word [$word] $phonemes\n"; 123 } 124 # !!!!!! 125 118 126 } 119 127 close MISSINGWORDSOUT;