Perl Programming Language :: (Anno's) "Beyond Inside-Out"


	(Anno's) "Beyond Inside-Out" Before he does so himself, I put here an "ad" for our Anno's latest article in PM: http://perlmonks.org/?node_id=617945 Michele -- {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr (($a\|\|=join'',map--$\|x$_,(unpack'w',unpack'u','G^<R<Y]YB=' .'KYU;EVH[.FHF2W+#"\Z5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_, 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH, Michele Dondi <bik.m@tiscalinet.it> wrote in comp.lang.perl.misc: > Before he does so himself, I already did :) > I put here an "ad" for our Anno's latest > article in PM: > http://perlmonks.org/?node_id=617945 Thanks! Anno On 29 May 2007 12:46:26 GMT, anno4@radom.zrz.tu-berlin.de wrote: >> Before he does so himself, >I already did :) Hadn't come out in my newsreader yet. I considered that enough! ;-) Michele -- {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr (($a\|\|=join'',map--$\|x$_,(unpack'w',unpack'u','G^<R<Y]YB=' .'KYU;EVH[.FHF2W+#"\Z5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_, 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,