关于sub定义

关于sub定义
sub testa($){
my ($a,$ao)=@_;
@{$ao}=();#本句非必要
print @{$a};
print "\n";
for (my $i=0;$i<=$#{$a};$i++){
#pop @{$a},$b;
$b=$a->[$i];
my $c=${$a}[$i];
print "b=$b,c=$c\n";
$b++;
push @{$ao},$b;
}
}

sub testb($){
my ($c)=@_;
print "c.a=$c->{'a'}\n";
$c->{'a'}=1;
}

sub testc($$){
my ($d,@a)=@_;
print "d=$d.\n";
print @a;
print "\n";
$a[0]=4;
$d=1;
}

sub testd($){
my ($c)=@_;
foreach my $outer ( keys %{$c} ){
print "c->{$outer}=$c->{$outer}\n";
}
}
sub teste($){
my ($e)=@_;
my $d=();
$d->{'b'}=2;
$e->{'b'}=2;
return $d;
}
sub testf($){
my ($f)=@_;
$$f='def';
}
这5个定义分别是什么意思呢? 大概叙述一下就可以鸟....

买本基础的书看看把.

楼主能不能问些有价值的问.
楼主能不能问些有价值的问题？
去看Perl高级编程吧。
锁帖。