Hi John See in-line
"John W. Krahn" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > 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" :-) > That was what I was (mis) quoting :) > > $ 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. > ...and I did it because I suspected you might prove me wrong, which you did with great finesse :-)) So now we have $s =~ s[(mixed)][($a=$1)=~s/([[:alpha:]])/$1 eq lc($1)?uc($1):lc($1)/eg;$a]ieg; how awful! :-} Cheers, Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
