Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 browsing the Monastery: (17)
As of 2014-10-30 14:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (208 votes), past polls