- Timestamp:
- 05/27/08 12:38:46 (6 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Text.pm
r2594 r2595 46 46 $line =~ s/\.\"//g; # period followed by double quote 47 47 $line =~ s/\,\"//g; # comma followed by double quote 48 $line =~ s/\;\"//g; # semi-colon followed by double quote 48 49 $line =~ s/\?\"//g; # question mark followed by double quote 49 50 $line =~ s/\!\"//g; # exclamation mark followed by double quote 50 51 $line =~ s/\.\'//g; # period followed by single quote 51 52 $line =~ s/\,\'//g; # comma followed by single quote 53 $line =~ s/\;\'//g; # semi-colon followed by single quote 52 54 $line =~ s/\?\'//g; # question mark followed by single quote 53 55 $line =~ s/\!\'//g; # exclamation mark followed by single quote … … 96 98 $line =~ s/\.\"//g; # period followed by double quote 97 99 $line =~ s/\,\"//g; # comma followed by double quote 100 $line =~ s/\;\"//g; # semi-colon followed by double quote 98 101 $line =~ s/\?\"//g; # question mark followed by double quote 99 102 $line =~ s/\!\"//g; # exclamation mark followed by double quote 100 103 $line =~ s/\.\'//g; # period followed by single quote 101 104 $line =~ s/\,\'//g; # comma followed by single quote 105 $line =~ s/\;\'//g; # semi-colon followed by single quote 102 106 $line =~ s/\?\'//g; # question mark followed by single quote 103 107 $line =~ s/\!\'//g; # exclamation mark followed by single quote … … 198 202 $$word =~ s/^\'+//; 199 203 push (@$quotelog, "changed:$tempword to:$$word\n"); 204 } elsif ($$word =~ /\'+$/) { # one or more single quote(s) from end of word 205 my $tempword = $$word; 206 $$word =~ s/\'+$//; 207 push (@$quotelog, "changed:$tempword to:$$word\n"); 200 208 } else { 201 # don;t remove single quote(s) from endof word - further manual processing might be required209 # don;t remove single quote(s) from body of word - further manual processing might be required 202 210 #$word =~ s/\'+$//; # single quote(s) from end of word ... but some contractions use a single quote at the end of the word 203 211 push (@$quotelog, "$$word\n") if $log_single_quotes;