sub引用

3645636

UID: 46175
帖子: 96
积分: 220
在线时间: 12 小时

1^# 3645636 发表于 2008-10-29 16:51

sub引用

#!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

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-10-29 16:54

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

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

3^# ynchnluiti 发表于 2008-10-29 17:00

QUOTE:

原帖由 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

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

4^# ynchnluiti 发表于 2008-10-29 17:02

QUOTE:

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

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