Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Username using most of perl's list functions

by mlh2003 (Scribe)
on Feb 15, 2005 at 23:07 UTC ( #431378=obfuscated: print w/replies, xml ) Need Help??

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)));

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)

      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 ;)

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2021-10-24 17:54 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (89 votes). Check out past polls.