On Sat, 2 Feb 2002, Bill -OSX- Jones wrote:
>
> On Saturday, February 2, 2002, at 01:40 AM, Rick Myers wrote:
> > s///e and s///ee really does.
> >
>
> e 'eval's the s/// results and ee re'eval's THAT result :)
I guess it's time for me to brag about things I did with a few /e
use strict;my$s=';pop';$_='';# 59 /e, © 2001 Philippe "BooK" Bruhat
*_=*ARGV;@_=qw(4a4a2bfe01ac410d0105f4fd0dae30150dfab448f90208fa0d98
pop print+chr(shift) print+chr(shift) unshift@_,(shift()+shift())x2
push@_,(pop,pop)x24 ; unshift@_,(map{unpack'c',$_}split//)[0..25] ;
s/../chr(hex$&)/eg $_=substr(shift,0,52) @_=map{s|$|$s|s;$_}@_;pop)
;s//$s/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee;
:-)
Solution on http://www.perlmonks.org/index.pl?node_id=89199
--
Philippe "BooK" Bruhat
A substitute is never as good as the genuine article.
(Moral from Groo The Wanderer #67 (Epic))
