子函数返回值的问题

hr_it

1^# hr_it 发表于 2008-11-04 16:44

sub min
{
      my($m, $n) = @_;
      if($m < $n)
            $m;
      else
               $n;
}
$c = &min(11, 6);
print $c."\n";

perl test

咋老提示第5行错误呢?
难道不能这样返回么?加return也没用.

SAS

2^# SAS 发表于 2008-11-04 16:45

if($m < $n)
{
            $m;
}
      else
{
            $n;
}

machine

3^# machine 发表于 2008-11-04 16:52

呵呵 perl 和 c 还是有写区别的

hr_it

4^# hr_it 发表于 2008-11-04 16:59

多谢楼上的. 哎,还是怪自己.前面本来看了这点的即使一条语句的时候也要括起来.