advanced code snippet search

Posted By

darkphotn on 01/13/08


Tagged

code perl crazy elite wtf


Versions (?)

Crazy Perl Code

 / Published in: Perl
 

Yes, this is valid code.

Designed by myself, unless otherwise noted.

Expand | Embed | Plain Text 
  1. $_ = shift;
  2. s/\\/\//g;
  3. print;
  4.  
  5. ################
  6.  
  7. while(<>) {
  8.    /^(\w+)/;
  9.    print $_.',';
  10. }
  11.  
  12. #############
  13.  
  14. if(($_ = 5)==5) {print;}
  15.  
  16. ##############
  17.  
  18. $x = 7;
  19. if (($x <=> 0)==($x=$x)) {print 'true';}
  20. else{print 'false';}
  21.  
  22. #######################
  23.  
  24. print "Hello World" or die "trying";
  25.  
  26. ######################
  27.  
  28. print eval qw(qw(qw()));

Report this snippet  

Comments

RSS Icon Subscribe to comments
Posted By: jkramer on January 30, 2008

What's so crazy about this?

Posted By: maietta on January 24, 2010

Uh, yeah. Useless, but intriguing. Reminds me of a friends script that is "obfuscated" his code and used it for an email signature.

You need to login to post a comment.