- Timestamp:
- 05/16/08 14:03:32 (8 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Text.pm
r2586 r2587 104 104 print LOG "changed digit: $word \n"; 105 105 _processWordsContainingNumbers ($self, \@words,$word); 106 } 107 elsif ($word =~ /\./) {# $word contains a period 106 } elsif ($word =~ /^\.$/) {# $word only contains a period 107 $word =~ s/\.//g; 108 } elsif ($word =~ /\./) {# $word contains a period 108 109 print LOG "changed word with period in it: $word to"; 109 110 $word =~ s/\.//g; … … 138 139 confess "error - fix: $word\n" 139 140 } 140 141 141 } 142 142