if ( $#ARGV < 0 ){
print "请输入一个日期参数\n";
exit(-1);
}
$var = $ARGV[0];
print "\$var is $var\n";
if ($var =~/fred/) {
print "fred\n";
}
elsif ($var =~/red/) {
print "red\n";
}
else {
print "black\n";
}
perl if elsif else
最新推荐文章于 2023-08-05 10:00:32 发布