Re: [Fun With Perl] Paranoia.

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

On Fri, Jun 18, 1999 at 09:25:40AM -0500, Eric Von Zee wrote:
> Bill Jones wrote:
> > 
> > It prints:
> > 
> <snip output> 
> > Plus there is a hidden message. :]
> > (No, not in the above, but in the
> > original source I posted...)
> > 
> > PS - I didn't write it, I just want to
> > understand it :)
> 
> Ooooh ooohh I think I get it! (and I've never understood any of that
> obfuscated stuff before!)
> 
> Somebody more perly than myself will correct me if I am wrong, surely.

Just one minor correction...


> Join puts those all together to make (expanded):
> 
> $_="JOIN THE JAX PERL MONGERS J acksonville Perl Mongers J\n"; 
> / ((.)) /; 
> do {
>     print substr($_,25); 
> } while ( s/((.).{23}) $2 (.)(.*) (.)$/$1$5 $2 $4 $3/ )
> 
> which does (I think - my regexing sucks .. I havent read the owl yet -
> just got it Wednesday. :D )
> 
> Set $2 to J (the first character in $_, selected by ((.)) ) 

Actually, the J that is selected is the one in the middle of the string.
Those spaces in the regex / ((.)) / have to match too.

Ronald

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org