John Fisher wrote:
> I am trying to figure out how clever it actually is.
> I reversed \L\u with \u\L expecting different results and got the same
> result. Another Company Name Ltd
>
> Why didn't reversing the metacharacters change the results.
>
[snip]
>
> $pt=~s/(\w+)/\u\L$1/g
>
> $pt=~s/(\w+)/\L\u$1/g
>
because \L\u and \u\L is exactly the same:
[panda]$ perl -MO=Deparse -e 's/(\w+)/\L\u$1/g; s/(\w+)/\u\L$1/g'
s/(\w+)/\u\L$1\E/g;
s/(\w+)/\u\L$1\E/g;
-e syntax OK
[panda]$
david
-----
$_=q?015001450154015401570040016701570162015401440041?,local$",split$`;**=*_,
map{$#.=qq~chr(@_[$_<<1..$*<<1|3]),~}grep{~$_&1}0..s~.~~g-1;*_=*#,print+eval,
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
