[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] My first japh

>>>>> "LS" == Larry Shatzer <lshatzer@islanddata.com> writes:

  LS> <BR><FONT SIZE=2>($foo=($foo=$1))=~s,((?:n|c|u|y).), $1,g/ex;@j=split(//,$3);$i=0;</FONT>
  LS> <BR><FONT SIZE=2>map{$j[$i]=chr(($j[$i]=ord($j[$i]))+=$_);$i++}qw(4 17 -9 -4 -5);</FONT>
  LS> <BR><FONT SIZE=2>$print=join(&quot;&quot;,@j);$foo=~y|A-Za-z|n-za-mN-ZA-M|;$japh=&quot;$2$foo.\n$4;&quot;;</FONT>
  LS> <BR><FONT SIZE=2>eval&quot;$print $japh&quot;;</FONT>

that isn't legal perl.

:)

uri

-- 
Uri Guttman  ---------  uri@sysarch.com  ----------  http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info:     http://www.sysarch.com/perl/OOP_class.html

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe