in reply to RegExp Capitalization of Entry
... a way to capitalize the names of every word in each entry except for the words such as: "and", "or", "the" etc.
I have a feeling there has to be a module for this somewhere, but it is really not that hard, if you just have a list of words that should not be upcased.
Well, there is also the question of what constitutes a word ... this is just one of many ways. Season to taste:
print capitalize("red hot chili peppers\nby the way\n"); { my %exception; sub capitalize { my $string = shift; %exception = map{$_=>1}qw(and or the a an etc) unless keys %exception; $string =~ s/(\w+)/$exception{$1}?$1:ucfirst($1)/ge; return $string; } }
The Sidhekin
print "Just another Perl ${\(trickster and hacker)},"
|
---|