疯狂的Perl代码

Posted 2021-02-27

Yes, this is valid code.

Designed by myself, unless otherwise noted.

$_ = 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()));