Username using most of perl's list functions

My first obfuscated code posting at the Monastery...

Just a 1-liner that uses most of perls list functions (as listed in perlfunc's 'Perl Functions by Category') to print out a simple name :)

print join'',(reverse sort map{/\d([a-z])\d/}split/\W/,'$5l6@314&60f%3
+h4#moo^1m2'),(map{/\d(\d)/}grep/\w\d/,reverse split/\W/,'a2&2b#9i*30%
+42'),(unpack"AA",(chr(0b110000).chr(0b110011)));
[download]

Comment on Username using most of perl's list functions Download Code

Replies are listed 'Best First'.
Re: Username using most of perl's list functions by Animator (Hermit) on Feb 16, 2005 at 19:57 UTC
You can use the oct function aswell. You can replace the last `chr(0b110011)`with: `chr oct q q0b110011q;` ~~Can you update your post and use code tags instead of pre tags (since you are messing up the layout...)?~~ (fixed)	[reply] [d/l] [select]
Re^2: Username using most of perl's list functions by mlh2003 (Scribe) on Feb 16, 2005 at 22:01 UTC
Thanks Animator. I have fixed the formatting as suggested. I did have that code wrapped between code tags, although they were on the same line as the code - so for some reason it didn't format it correctly. After putting those tags on a line by themselves it came good ;)	[reply]