diff options
author | Hieu Hoang <hieuhoang@gmail.com> | 2019-01-04 17:55:55 +0300 |
---|---|---|
committer | Hieu Hoang <hieuhoang@gmail.com> | 2019-01-04 17:55:55 +0300 |
commit | 26940e714a104a243254eef934b66c68054df63e (patch) | |
tree | 5d680f84f0cbe135d4a60a578783508f08059ab0 | |
parent | 7bc56b66f24591603e620b04916a3b53a82bb76a (diff) |
Revert "use ucfirst instead of defined uppercase function"
This reverts commit dfbb17e549d4cb4ece452c7224ae47a590b7a4da.
-rwxr-xr-x | scripts/recaser/detruecase.perl | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/scripts/recaser/detruecase.perl b/scripts/recaser/detruecase.perl index 6d4011ad1..66ca24fa2 100755 --- a/scripts/recaser/detruecase.perl +++ b/scripts/recaser/detruecase.perl @@ -60,19 +60,19 @@ sub process { $line =~ s/\s+$//; my @WORD = split(/\s+/,$line); - # uppercase first char of word at sentence start + # uppercase at sentence start my $sentence_start = 1; for(my $i=0;$i<scalar(@WORD);$i++) { - ucfirst(\$WORD[$i]) if $sentence_start; + &uppercase(\$WORD[$i]) if $sentence_start; if (defined($SENTENCE_END{ $WORD[$i] })) { $sentence_start = 1; } elsif (!defined($DELAYED_SENTENCE_START{$WORD[$i] })) { $sentence_start = 0; } } - # uppercase first char of each word in headlines { + # uppercase headlines { if (defined($SRC) && $HEADLINE[$sentence]) { foreach (@WORD) { - ucfirst(\$_) unless $ALWAYS_LOWER{$_}; - } + &uppercase(\$_) unless $ALWAYS_LOWER{$_}; + } } # output @@ -85,3 +85,8 @@ sub process { print "\n"; $sentence++; } + +sub uppercase { + my ($W) = @_; + $$W = uc(substr($$W,0,1)).substr($$W,1); +} |