代码为先:
while (length($ans)==0) {
print "Sir, 请输入数字: ";
$ans=<>;
chomp $ans;
if(!($ans =~/[^0-9]+/)) {
if ($ans%2==0) { print "您输入的是偶数! "; }
else {print "您输入的是奇数! "};
}
else {print "您输入的不是数字";}
}

print "您输入的是$ans ";












Perl这个20多年的东西似乎越来越流行,我也简单看了下,写下一个练习,想了好久判断是否为数字。自然一开始便想到用regular express,但是开始一直用 [0-9]*来套用数字,发现如果输入中只要有数字便通过,并没有能够判断为纯数字,想了好久,网上也搜了,没有找到结果,后来我脑袋灵光一现,发现判断只要有不是数字的就可以了 哈哈,是不是人老了呢!
仅做练习供网友参考。
Perl 是Larry于上世纪80年代晚期创作的一个玩意儿,本意是用来处理shell或者awk之类不方便处理的文字的,后来需要人发现很好用,就要求强化它,保留简单易用的风格,到如今网上已经有了很多网友贡献的库,使得它很壮大。从网页服务端的CGI到文本处理,网络与系统管理,等等,甚至Bill Gates都喜欢上了它,掏钱让它出现在MS windows 平台下面。