请教，如何验证用户输入的是一个数字？

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

1^# hepower 发表于 2007-12-14 16:39

请教，如何验证用户输入的是一个数字？

my $input = <STDIN>;
这里要求验证$input是一个数字，而且是一个大于或等于零的整数，谢谢

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2007-12-14 16:46

/^[0-9]+$/

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

3^# hepower 发表于 2007-12-14 16:49

#!usr/bin/perl -w

use strict;

my $userselect = <STDIN>;
if($userselect ne "\n")
{
chomp($userselect);
if($userselect =~/[0-9]+/)
{
print "number !\n";
}
else
{
print "not number !\n";
}
}

输入1e 和 e2都能识别成数字啊

G00GLE

UID: 1347
帖子: 1
积分: 2
在线时间: 10 分钟

4^# G00GLE 发表于 2007-12-14 16:54

你没看清2楼是怎么匹配的嘛

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

5^# ly5066113 发表于 2007-12-14 16:55

开始的写错了，需要加^和$

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

6^# hepower 发表于 2007-12-14 17:04

ok 谢了