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