On Thu, Jan 02, 2003 at 02:32:34AM -0800, John W. Krahn wrote:
> Rob Dixon wrote:
> >
> > "John W. Krahn" <[EMAIL PROTECTED]> wrote in message
> > > $ 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.
perl -le '$_ = "Mixed Case"; print map { ($_ eq lc) ? uc : lc } split //'
perl -le '$_ = "Mixed Case"; s/([[:alpha:]])/$1 ^ " "/eg; print'
Assuming ASCII on the last one there.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
