perl if else循环

发布时间：2020-12-15 23:53:10 所属栏目：大数据来源：网络整理

导读：[oracle@jhoa 7]$ cat 5.pl if ( $#ARGV 0 ){ print "请输入一个日期参数n"; exit(-1); } $var = $ARGV[0];if ($var =~/xy/) ##匹配xy字符{print "okn"} else{print "non"}[oracle@jhoa 7]$ perl 5.pl xyok[oracle@jhoa 7]$ perl 5.pl xyzzok[oracle@jhoa

[oracle@jhoa 7]$ cat 5.pl 
if ( $#ARGV < 0 ){
        print "请输入一个日期参数n";
        exit(-1);
    }
  $var = $ARGV[0];
if ($var =~/xy/) ##匹配xy字符
{print "okn"} 
else
{print "non"}



[oracle@jhoa 7]$ perl 5.pl  xy
ok
[oracle@jhoa 7]$ perl 5.pl  xyzz
ok
[oracle@jhoa 7]$ perl 5.pl  yyy
no

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!