- Timestamp:
- 06/17/08 15:25:27 (6 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Dictionary.pm
r2609 r2613 259 259 @lines = sort(@lines); # sort the list 260 260 my($line); 261 foreach $line (@lines) # loop thru list 262 { 261 foreach $line (@lines) { # loop thru list 263 262 print DICTIONARY "$line"; # print in sort order 264 }263 } 265 264 close(DICTIONARY); 266 265 return 1;