bless this japh

Not very hard, but exploiting a nice 'feature' that's been around for quite a while ...

#!/usr/bin/perl
for(ref bless[],just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
[download]

Anybody care to de-obfuscate?

Also makes a nice .sig, so this is the last time you'll see this one:

--
#!/usr/bin/perl -w just another perl hacker
print+seek(DATA,$=*.3,@-)?~~<DATA>:$:__DATA__

Comment on bless this japh Download Code

Replies are listed 'Best First'.
bless this japh for it has sinned by c-era (Curate) on Jun 07, 2002 at 15:05 UTC
Bless this japh for it has sinned. It has been 5 days since its last confession. Since that time it has committed the following sins: It has used perl4 syntax in perl5 code It has also taken advantage of a for loop just for its $_ and it has de-reference an anonymous variable in public for these and all the sins of its past, it is truly sorry.	[reply]
Re: bless this japh by Dog and Pony (Priest) on Jun 07, 2002 at 14:22 UTC
Anybody care to de-obfuscate? Sure, I can give it a shot. :) Read more... (2 kB)	[reply] [d/l] [select]
Re: bless this japh by tlhf (Scribe) on Jun 07, 2002 at 14:28 UTC
Well, with a little deparsing and stuff goin on; `# ($", $/) = (' ', "\n"); $blessed = ref bless([], 'just::another::perl::hacker'); foreach $element ($blessed) { $element =~ s/:+/$"/g; print $element . $/; }` [download] For some reason I find it a shame the code only loops once. It looks like it should have a loop in. Maybe add a split somewhere? tlhf xxx Getting it to allow q(just'another'perl'hacker) right in the text is still cool though.	[reply] [d/l]
Re: Re: bless this japh by domm (Chaplain) on Jun 07, 2002 at 14:41 UTC
For some reason I find it a shame the code only loops once. As Dog_and_Pony pointed out, the only reason for the for-loop is to put the return value of ref into $_. So, in good obfu-manners something (for) is used for soemthing different than what it's ususally used for. -- #!/usr/bin/perl for(ref bless[],just'another'perl'hacker){s-:+-$"-g&&print$_.$/}	[reply]


Perl Monk, Perl Meditation
	PerlMonks