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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值