Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 chanting in the Monastery: (11)
As of 2014-12-18 09:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (48 votes), past polls