advanced code snippet search

We Recommend

Learning Perl Learning Perl
In this smooth, carefully paced course, a leading Perl trainer teaches you to program in the language that threatens to make C, sed, awk, and the Unix shell obsolete for many tasks. This book is the "official" guide for both formal (classroom) and informal learning. It is fully accessible to the novice programmer.

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.

Plain TextExpand 
  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?

You need to login to post a comment.