perl 验证数字输入

tfirer 发布于 2012/03/06 11:35
阅读 877
收藏 0
请问大神!在perl中想用<STDIN>读入数字进行运算,有什么好的办法能用来验证输入的是合法的数字类型?(比如输入1,2,3合法,输入a,b,c不合法。)
加载中
0
deleted
deleted
while (<>) {
    chomp;
    print $_,' is ', /^(?:\d+,?)*\d+$/ ?"":"in","valid\n";
}


tfirer
tfirer
有点看不懂,我觉得这样“/(^\d+$) | (^\d+.\d+$)/”就可以了
返回顶部
顶部