Posted By

darkphotn on 01/13/08

Tagged

code
perl

Versions (?)

Last Edited at 01/13/08 03:10pm

Statistics

Viewed 1256 times

Favorited by 0 user(s)

Related snippets

Crazy Perl Code

/ Published in: Perl

Yes, this is valid code.

Designed by myself, unless otherwise noted.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

$_ = shift;
s/\\/\//g;
print;
 
################
 
while(<>) {
   /^(\w+)/;
   print $_.',';
}
 
#############
 
if(($_ = 5)==5) {print;}
 
##############
 
$x = 7;
if (($x <=> 0)==($x=$x)) {print 'true';}
else{print 'false';}
 
#######################
 
print "Hello World" or die "trying";
 
######################
 
print eval qw(qw(qw()));