小问题，谢谢

dida_327

defined($value)
为什么这个函数返回值始终是1，即使没有对$value赋值

兰花仙子

原帖由 dida_327 于 2006-2-3 21:29 发表
defined($value)
为什么这个函数返回值始终是1，即使没有对$value赋值

没明白你的意思，请给出code看看。
即使defined有返回值，它也是代表defined这个函数的运行结果成功与否，与$value没什么关系。

dida_327

$value=<STDIN>;
$result=defined($value)
if($result==0)
{........}
else
{........}

japuser

不管你有没输入,$value已经定义,defined($value)始终为1,如果未输入,那就是NULL

兰花仙子

Sorry，前面偶理解有误。你这里从STDIN接受输入后，$value被定义了，defined()的返回就是真。
如下code:

1. use strict;
   
2. my $value=<STDIN>;
   
3. my $result=defined($value);
   
4. if($result==0)
   
5. {print "false"}
   
6. else
   
7. {print "$result: true"}

复制代码

运行后只要在终端输入内容，都会打印出1: true；否则，如果按ctrl+D，则$value未被定义，会打印出false。请见perldoc -f defined的详细文档。

dida_327

谢谢：）