Crazy Perl Code


/ Published in: Perl
Save to your folder(s)

Yes, this is valid code.

Designed by myself, unless otherwise noted.


Copy this code and paste it in your HTML
  1. $_ = shift;
  2. s/\\/\//g;
  3.  
  4. ################
  5.  
  6. while(<>) {
  7. /^(\w+)/;
  8. print $_.',';
  9. }
  10.  
  11. #############
  12.  
  13. if(($_ = 5)==5) {print;}
  14.  
  15. ##############
  16.  
  17. $x = 7;
  18. if (($x <=> 0)==($x=$x)) {print 'true';}
  19. else{print 'false';}
  20.  
  21. #######################
  22.  
  23. print "Hello World" or die "trying";
  24.  
  25. ######################
  26.  

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.