再问个问题，如何判断一个标量是不是整数？

mgjrr16888

有没有这类函数？一时想不起了啊。

兰花仙子

原帖由 mgjrr16888 于 2009-10-14 10:20 发表
有没有这类函数？一时想不起了啊。

if ( int($xx) == $xx )

mgjrr16888

谢谢beauty

hitsubunnu

原帖由 兰花仙子 于 2009-10-14 10:22 发表


if ( int($xx) == $xx )

不够严谨哦      

1. 
   
2. my $xx = 1.00000000000000001;
   
3. 
   
4. if ( int($xx) == $xx ){
   
5.         print "int\n";
   
6. }
   
7. 
   

复制代码

[ 本帖最后由 hitsubunnu 于 2009-10-14 10:53 编辑 ]

flw

很奇怪的需求，
可以分享一下需求吗？

我先给你答案：
http://search.cpan.org/~gbarr/Sc ... /lib/Scalar/Util.pm

ttcn

也用正则来实现吧?
>perl -e 'my $xx=1 ;if ($xx=~/^-?\d+$/){warn "int";}else{warn "not int"};warn $xx'
int at -e line 1.
1 at -e line 1.
>perl -e 'my $xx=0 ;if ($xx=~/^-?\d+$/){warn "int";}else{warn "not int"};warn $xx'
int at -e line 1.
0 at -e line 1.
>perl -e 'my $xx=-1 ;if ($xx=~/^-?\d+$/){warn "int";}else{warn "not int"};warn $xx'
int at -e line 1.
-1 at -e line 1.
>perl -e 'my $xx=-1.0 ;if ($xx=~/^-?\d+$/){warn "int";}else{warn "not int"};warn $xx'
int at -e line 1.
-1 at -e line 1.
>perl -e 'my $xx=-1.000000000000000000000000001 ;if ($xx=~/^-?\d+$/){warn "int";}else{warn "not int"};warn $xx'
int at -e line 1.
-1 at -e line 1.
>perl -e 'my $xx=-1.000000001 ;if ($xx=~/^-?\d+$/){warn "int";}else{warn "not int"};warn $xx'
not int at -e line 1.
-1.000000001 at -e line 1.

mgjrr16888

这个需求不奇怪啊，输入的一个参数。我想确定输入的是不是一个整数。

lanmeibanban

为啥不直接匹配"."呢....?

if($xx=~/\./) 不行么?


。。。。。。

哦。。。。1.000000。。。。。。汗。。。。。。

[ 本帖最后由 lanmeibanban 于 2009-10-14 17:29 编辑 ]

HongLian3

嗯，觉得这样说得过去的啊，也方便。

infernor

原帖由 hitsubunnu 于 2009-10-14 10:51 发表



不够严谨哦      


my $xx = 1.00000000000000001;

if ( int($xx) == $xx ){
        print "int\n";
}

能解释下么？