一个变量被当作了整形，怎么办？

bandaotidejia

运行一个perl脚本报错如下：
Argument "" isn't numeric in numeric eq (==) at sss.pl line 132

代码如下：
sub func
{
        my ($S,$F,$IN)=@_;
        //此处打印$S为[ACTIVE   LO]
    if(defined($S)&&$S eq 'ACTIVE')//这句报错
    {
             。。。
    }


func的调用前一句 打印$S也是[ACTIVE   LO]


多谢大拿指点

zhlong8

无法重现，你再好好检查下，或者来个可重现的版本来。