Re: Hashes are fun!

I am failing to undertsand...

%h=(m=>1=>n=>2=>o=>3=>)=>@h{m..o}=(4,5,6)=>print%h
%h=(m=>1=>n=>2=>o=>3=>),@h{m..o}=(4,5,6),print%h
%h=(m=>1=>n=>2=>o=>3=>);@h{m..o}=(4,5,6);print%h
%h=(m=>1=>n=>2=>o=>3=>);print%h
[download]

All of which give your output of m1n2o3

-- perl -p -e "s/(?:\w);([st])/'\$1/mg"

Comment on Re: Hashes are fun! Download Code

Replies are listed 'Best First'.
Re: Re: Hashes are fun! by japhy (Canon) on Dec 16, 2001 at 08:33 UTC
Wouldn't you expect them to have the values 4, 5, and 6?! And how dare you run Perl code without warnings on. Honestly! _____________________________________________________ Jeff`[japhy]`Pinyan: Perl, regex, and perl hacker. `s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;`	[reply]
Re: Re: Re: Hashes are fun! by belg4mit (Prior) on Dec 16, 2001 at 08:35 UTC
I would, but didn't see that as humorous. Nor the trick :-P. As for warnings you didn't indicate that this obfu was compatible with such ;-)! `-- perl -p -e "s/(?:\w);([st])/'\$1/mg"`	[reply]