Coding in smileys

[biga]

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-]
;=>     %)          &~()

[Lawliet]

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

[mr_mischief]

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.

[deliria]

Made me smile. Thanks,++

[Burak]

nice :)