Don't ask to ask, just ask | |
PerlMonks |
Solution: Not what you'd expectby domm (Chaplain) |
on Mar 09, 2002 at 19:40 UTC ( [id://150602]=note: print w/replies, xml ) | Need Help?? |
OK, let's de-obfuscate...
$_= "Just Another Perl Hacker"; print /(.)n/;That's easey, set $_ to JAPH, and print the first char followed by an 'n', i.e. 'A'.
s/^([^ ]*) *([^ ]*)/$3 $3/;
/\sH(.)(.)/;
print $2;
/(.)\1.(.)/; __Perl Hackerand thus saves 'e' in $2;
print $2,",";
print $_; Not that hard to de-obfuscate, the only thing that made me wonder what was going on was '\1' in one regex. -- #!/usr/bin/perl -w just another perl hacker print+seek(DATA,$=*.3,@-)?~~<DATA>:$:__DATA__
In Section
Obfuscated Code
|
|