Re: RegExp Capitalization of Entry


Perl Monk, Perl Meditation
	PerlMonks

Re: RegExp Capitalization of Entry

by insensate (Hermit)

on Jul 16, 2002 at 16:13 UTC ( [id://182136]=note: print w/replies, xml )

Need Help??

in reply to RegExp Capitalization of Entry

Here is a way to do it with one regex:

while(<DATA>){
  @words=split;
  for(@words){
    /(?:(the|or|and)|\w+) #Capture "the|or|and"
    (?(1)                 #Switch on captured value
    (?{print"$_ "})       #If there is a captured value just print
    |(?{print "\u\L$_ "}))#If not convert first char uppercase
    /x;        
  }
}
__DATA__
red hot chili peppers, by the way
[download]

Hope this helps,
Jason