Advanced Search

Return to Snippet

Revision: 4612
at January 13, 2008 15:10 by darkphotn
Initial Code 
$_ = 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()));
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Yes, this is valid code.

Designed by myself, unless otherwise noted.

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Crazy Perl Code

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
code, perl

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl