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

原创 2007年10月10日 17:44:00
 代码为先:
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 平台下面。

Perl 数字与字符串运算符之区别

在Perl中,字符串比较和数字比较是由不同的运算符来完成的: 数字比较运算符: , =, ==, != 字符串比较运算符: lt, gt, le, ge, eq, ne cmp: 比较字...
  • zlking02
  • zlking02
  • 2011-12-15 14:56:17
  • 2092

判断整数是奇数还是偶数

下面这个例子中使用了两种方法,一种是mod,一种是位运算。对于位运算的方法,比较好理解,但是对于mod的方法,如果使用不当,就容易得到错误的结果。 #include using namespace...
  • hp_truth
  • hp_truth
  • 2015-02-26 12:02:43
  • 1168

perl详解

第一章 概述 一、Perl是什么?       Perl是Practical Extraction and Report Language的缩写,它是由Larry Wall设计的,并由他不断更...
  • yanfangphp
  • yanfangphp
  • 2013-12-04 11:06:59
  • 2245

C# 判断字符是否中文还是英文

private static bool IsHanZi(string ch) {      byte[] byte_len = System.Text.Encoding.Default....
  • XinChiMaker
  • XinChiMaker
  • 2011-04-15 04:59:00
  • 3315

判断字符串是否为数字的方法

  • DonetRen
  • DonetRen
  • 2010-04-12 18:38:00
  • 2569

输入一个数字判断为偶数还是奇数用switch

/*输入一个数字判断为偶数还是奇数用switch*/ #include int main(void) { int no; printf("输入一个数"); scanf("%d",&no); ...
  • qq_26661567
  • qq_26661567
  • 2015-03-18 16:17:02
  • 231

perl教程

document.body.oncopy = function() { if (window.clipboardData) { setTimeout(functi...
  • hendyyou
  • hendyyou
  • 2009-08-30 17:02:00
  • 333

計算總和、乘積、差、商和餘數

  • 2014年09月16日 19:28
  • 312B
  • 下载

第十一周项目3-2-判断一个数是否回文(改进版!!!)

/* *程序的版权和版本声明部分: *Copyright(c)2013,烟台大学计算机学...
  • u012246348
  • u012246348
  • 2013-11-06 15:12:54
  • 547

Intermediate <em>perl</em> pdf 版本

2010-09-28 上传大小:2.24MB <em>perl</em> chm 版本好像没法在linux系统打开。搞了个pdf版本的。综合评分:5 收藏评论(1)举报 所需: 3积分/C币 下载个数: 62 开通...
  • 2018年04月05日 00:00
收藏助手
不良信息举报
您举报文章:Perl 判斷輸入是否為數字,是奇數還是偶數
举报原因:
原因补充:

(最多只允许输入30个字)