Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

sort of cheating?

by phroggy (Monk)
on Apr 01, 2005 at 04:11 UTC ( [id://444081]=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl ($s,$u)=qw; 7363616C617220676574686F737462796E616D652022245F2E6A6170682E24752E636F +6D22 phroggy;;$s=~s;(..);chr hex $1;ge;print eval $s for(0..6);

Replies are listed 'Best First'.
Re: sort of cheating?
by Tanktalus (Canon) on Apr 01, 2005 at 15:06 UTC
    Yes, I'd say that was cheating :-). Note that you've managed to get something a bit wrong ... it's printing out "Just anthher Perl hacker,", so you need to change 1.* and 2.* just a tiny bit ;-) (I'm leaving out what "*" means so as not to ruin what's going on here. And I'm leaving out what they need to be changed to for the same reason.)

      Right, fixed, thanks (may take time to update, of course). Funny how many times I failed to notice the problem.
      perl -e '($,,@_)=("er",",\n","l Hack"," P","Just anoth"); print reverse @_;'
Re: sort of cheating?
by cristian (Hermit) on Apr 01, 2005 at 17:34 UTC
    The get number 2 is bad. => 2.japh.phroggy.com print scalar gethostbyname "$_.japh.phroggy.com" for 0 .. 6;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://444081]
Approved by Tanktalus
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2024-03-28 14:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found