Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Coding in smileys

by biga (Sexton)
on Sep 27, 2008 at 10:44 UTC ( #714009=obfuscated: print w/ replies, xml ) Need Help??

Not as stylish as Emotijaph, but whatever... %-)
#!/usr/bin/perl %) =( $( %( 8-( 8^( $-) ?O_o &-[ 8-( 8) ]:0) )=> $) ,) ;#( $_= X-() ?o_O :q :] #-- Just A.Smiley :| (); s:] .\ *( \#-) \-: :x ;-y ;) <~.Smiley; Another one ~> (; ;s :() [^; ]: Hacker-Smiley: #B-] ;#) Cthulhu Smiley: {:=E ;{ s:( \S*) ?-( \S*) \s*() $:\2 \1:x ;} print ;0| print+q; =B-] ;=> %) &~()

Comment on Coding in smileys
Download Code
Re: Coding in smileys
by Lawliet (Curate) on Sep 27, 2008 at 16:16 UTC

    ++ but I think a Cthulhu Smiley would be (\(;,,,;)/) :P

    I'm so adjective, I verb nouns!

    chomp; # nom nom nom

Re: Coding in smileys
by deliria (Hermit) on Sep 30, 2008 at 08:54 UTC
    Made me smile. Thanks,++
Re: Coding in smileys
by Burak (Chaplain) on Sep 30, 2008 at 20:52 UTC
    nice :)
Re: Coding in smileys
by mr_mischief (Monsignor) on Oct 02, 2008 at 17:27 UTC
    The deparsed version of that (using perl -MO=Deparse) is pretty darn obfuscated, too.

    Using the -p option fairs a little better. Using the -x<num> option (with 2 and 3 anyway) even makes the deparsing fail on perl 5.8.8 and perl 5.10.0 both.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://714009]
Approved by moritz
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (8)
As of 2014-12-25 00:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (159 votes), past polls