大家看看这个perl的自定义函数问题

剑心

我写的程序如下：
#!/usr/bin/perl

print max(45..121,12..23)."\n";
print max(23..34,356..564)."\n";
        sub max{
        my($max)=shift(@_);
        foreach $temp (@_){
                if $temp > $max
                        $max=$temp;
                }
        return($max);
}

运行时提示出错，我检查了好几遍，实在查不出那里出错了
提示如下：

Scalar found where operator expected at print.pl line 9, near "$max
                        $max"
        (Missing operator before $max?)
syntax error at print.pl line 8, near "if $temp "
Execution of print.pl aborted due to compilation errors.


大家帮看看那里错了
谢谢

georgek

if $temp > $max
$max=$temp;
問題就在這兒

剑心

这句怎麽错了
请明示！
谢谢！

georgek

http://www.linuxsir.cn/bbs/showthread.php?threadid=990

剑心

谢谢斑竹
那个有本书上说 不加括弧也行的
是不是Perl版本的问题呢？