sub引用

3645636

#!c:/Perl/bin/perl.exe
sub my {
        if ( $a>$b ){
                print "$a大于$b \n";
        }
        else {
        print "$b大于$a";
}
       }       


$a=10;
$b=20
$max = &my($a, $b);

执行时一直出错，sub这段没错，蓝色的哪段有问题，麻烦告知哪里错误了

MMMIX

把错误信息也贴上来。另外，给你的子程序换个名字，不要用 my

ynchnluiti

原帖由 3645636 于 2008-10-29 16:51 发表
#!c:/Perl/bin/perl.exe
sub my {
        if ( $a>$b ){
                print "$a大于$b \n";
        }
        else {
        print "$b大于$a";
}
       }       


$a=10;
$b=20; #没有分号
$max = &my($a, $b);

执行时一直出错，sub这段没错，蓝 ...

缺少分号

ynchnluiti

原帖由 MMMIX 于 2008-10-29 16:54 发表
把错误信息也贴上来。另外，给你的子程序换个名字，不要用 my

最好也别使用$a, $b， 参考perldoc -f sort, perlvar