Question

请教一个关于perl语言中子程序调用的问题

#!c:/perl/bin/perl
use strict;
{
sub add;
{
my ($a,$b)=@a_;
&result=$a+$b;
return &result;
}
add(1,2);
}
为什么这个程序运行出来总是说“Global symbpl "@_"requires explicit pakage name at test5.pl line 6.Execution of test5.pl aborted due to compilation errors.这是怎么回事啊

Answer 1

#!c:/perl/bin/perl
use strict;
{
sub add
{
my ($a,$b)=@_;
my $result=$a+$b;
return $result;
}
add(1,2);
}

你看一下我改的代码。
你的代码的错很多，首先 sub add后不应有分号， &result变量应为$result，而且前面要有 my。
@a_ 应为 @_