Perl 判斷輸入是否為數字，是奇數還是偶數

 代码为先：

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 平台下面。