perl unless循环

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

导读：[oracle@jhoa 6]$ cat 4.pl $mon = $ARGV[0];unless ($mon eq "Feb") {print "This month has at least thirty days.n";}else {print "Do you see what's going on here?n";}[oracle@jhoa 6]$ perl 4.pl Feb Do you see what's going on here?---条件为假

[oracle@jhoa 6]$ cat 4.pl 
$mon = $ARGV[0];
unless ($mon eq "Feb") {
print "This month has at least thirty days.n";
}else {
print "Do you see what's going on here?n";
}
[oracle@jhoa 6]$ perl 4.pl Feb 
Do you see what's going on here?

---条件为假时,才执行
[oracle@jhoa 6]$ perl 4.pl Febf
This month has at least thirty days.

unless?=?if?not

（编辑：李大同）

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