Perl 判斷輸入是否為數字,是奇數還是偶數
来源:互联网 发布:sql基础语言 编辑:程序博客网 时间:2024/06/05 09:50
代码为先:
while (length($ans)==0) {
print "Sir, 请输入数字: ";
$ans=<>;
chomp $ans;
if(!($ans =~/[^0-9]+/)) {
if ($ans%2==0) { print "您输入的是偶数! "; }
else {print "您输入的是奇数! "};
}
else {print "您输入的不是数字";}
}
print "您输入的是$ans ";
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判断文件是否存在
- 检查perl中是否存在指定模块
- perl判断变量是否为空
- Linux中查看是否安装perl模块
- Perl判断是否相等用==
- 使用perl来判断文件是否存在
- Perl 检测域名是否正常解析
- perl 判断网站内容是否变更
- 查询自己机子上是否有某一Perl模块
- perl比较文件数据是否相同(Algorithm::Diff模块)
- perl 判断数组里面是否含有某个元素
- 用perl语言mysql 检查数据库是否存在并删除
- Perl -- 数组和hash -- 判断元素是否存在数组中
- perl比较两个目录中的文件内容是否相同
- 利用Perl Net::Ping检测网段IP是否…
- perl变量在使用前是否需要先定义
- Perl 利用grep 判断元素是否在数组里
- 演示了字符串在String ,ansi char ,std::string之间的转换
- JBOSS JBPM
- .net中控件的命名规则
- jdbc连接oracle数据库
- VSS+Vs2003使用手册
- Perl 判斷輸入是否為數字,是奇數還是偶數
- System.String.Format
- 开始学习c语言
- 性别(0,1)转为(男,女)的方法总结
- 中国大学生泪别“精英时代”
- 读取Excel内容到MSHFlexgrid
- 再次增强反射类库,可读取调试信息
- 什么是VPN
- .net中URL路径的基本使用