perl -e 'for($",{},[],\_,**,\&_,\\$_,$^,$~,jk,$^X) {$__= $_;if($_=~/\//){($__)=$_=~/\/([^\/]+)$/}else {$__=~s/\(.*\)|:|\*|_//g}push@_,split//,$__;}print lc"$_[42]$_[31]$_[27]$_[33]$_[0]$_[2]$_[19]$_[34]" ."$_[33]$_[4]$_[23]$_[24]$_[0]$_[35]$_[23]$_[24]". "$_[13]$_[0]$_[1]$_[14]$_[20]$_[43]$_[25]$_[15],";'
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Learning Perl Vars
by Tanktalus (Canon) on Mar 30, 2005 at 00:14 UTC | |
by cristian (Hermit) on Mar 30, 2005 at 14:04 UTC |
Back to
Obfuscated Code