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

剑指Offer--032-整数中1出现的次数(从1到n整数中1出现的次数)

链接 牛客OJ:从1到n整数中1出现的次数 九度OJ:http://ac.jobdu.com/problem.php?pid=1373 GitHub代码: 032-从1到n整数...
  • gatieme
  • gatieme
  • 2016年05月01日 23:36
  • 1415

将Excel中存储为文本的数字转换为数字格式

有时,Exel 2007中的数字可能会作为文本格式化并存储在单元格中,这会给以后的计算造成问题或导致排序次序混乱。您可能在格式设置为文本的单元格中键入了数字,或者数据可能作为文本从外部数据源导入或复制...
  • lyjluandy
  • lyjluandy
  • 2013年12月16日 15:34
  • 1875

卷积网络keras实现的部分理解

参考 padding=same:0填充,padding=valid:不填充。参考 奇数图像(2,2))池化:先加1 dropout=p:以概率p舍弃神经元,即其中p不工作...
  • m0_37733057
  • m0_37733057
  • 2017年09月29日 16:03
  • 154

Linux设备号的构成和分配内核机制

我们知道“Linux下一切皆文件”(当然由于历史原因,网络设备除外,它是通过socket进行操作的),我们操作设备都要通过文件进行操作也就是所所谓的操作设备文件节点,但是在Linux内核中是使用设备号...
  • liebao_han
  • liebao_han
  • 2017年12月29日 14:59
  • 52

输入函数对比及输入带空格的字符串

1.第一种方法输入带空格的字符串,最简单的方法: char ch[100] gets(ch); cout 2.第二种方法输入带空格的字符串 #include using names...
  • bibilzz
  • bibilzz
  • 2014年08月24日 00:34
  • 672

RollNum ,滚动数字

github源码下载 package com.oblivion.myapplication;import android.support.annotation.NonNull; import and...
  • qq_16666847
  • qq_16666847
  • 2017年01月12日 17:33
  • 340

加密數字資產廣用成金融新趨勢

互聯網自1969年誕生以來,至今已有超過四十年的歷史。互聯網推出初期,主要是為美國聯邦政府研究活動的通信而設。1980年代,互聯網的用途開始擴展至跨領域通訊上,尤其是學術與軍事領域的通訊交流。後來,互...
  • sinat_36420262
  • sinat_36420262
  • 2016年10月17日 10:32
  • 157

replace限制文本框只能输入数字,数字和字母等的正则表达式

1.文本框只能输入数字代码(小数点也不能输入)  onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value...
  • qq_24771775
  • qq_24771775
  • 2016年04月05日 16:54
  • 1129

清空(數據庫中所有)表數據

1.delete 與 truncate delete 模式一般為 delete from table_name where {search_condition},可實現選擇性地刪除表中某些條記錄,當沒...
  • Benjayming
  • Benjayming
  • 2013年08月13日 21:52
  • 871

Swift教程_CoreData实例(四)_构建控制层(查询、更新数据)

查询数据 我们自定义一个列表控制器PKOBookDetailTableViewController,并应用到storyboard的明细显示view中,用来显示所选中的book的明细。通过PKOBoo...
  • ooppookid
  • ooppookid
  • 2014年11月07日 07:56
  • 2861
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Perl 判斷輸入是否為數字,是奇數還是偶數
举报原因:
原因补充:

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