Rob Dixon wrote: > > "John W. Krahn" <[EMAIL PROTECTED]> wrote in message > [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > > Prasad K M wrote: > > > > > > I want to read a file and print all the text , but reverse the case. > > > So all small will become CAPS and CAPS will be small . > > > The problem is toggling the case. Any idea as how to accomplish it ? > > > > $ perl -le'$_ = "This Is A Mixed Case Sentence."; tr/a-zA-Z/A-Za-z/; > > print' > > tHIS iS a mIXED cASE sENTENCE. > > Hmm. Sometimes there's only one way to do it :)
Perl's motto is "There's more than one way to do it" :-) $ perl -le'$_ = "This Is A Mixed Case Sentence."; s/([[:alpha:]])/$1 eq lc($1)?uc($1):lc($1)/eg; print' tHIS iS a mIXED cASE sENTENCE. John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
