[oracle@jhoa 7]$ cat 5.pl
if ( $#ARGV < 0 ){
print "请输入一个日期参数\n";
exit(-1);
}
$var = $ARGV[0];
if ($var =~/xy/) ##匹配xy字符
{print "ok\n"}
else
{print "no\n"}
[oracle@jhoa 7]$ perl 5.pl xy
ok
[oracle@jhoa 7]$ perl 5.pl xyzz
ok
[oracle@jhoa 7]$ perl 5.pl yyy
no
perl if else循环
最新推荐文章于 2023-08-05 10:00:32 发布