sort of cheating?

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

Comment on sort of cheating? Download Code

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.)	[reply]
Re^2: sort of cheating? by phroggy (Monk) on Apr 01, 2005 at 23:10 UTC
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 @_;'`	[reply] [d/l]
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;` [download]	[reply] [d/l]