如何在perl子函数中传递hash

Question

如何在perl子函数中传递hash

Answer 1

1 2 3 4 5 6 7

sub test {     my %hash = @_;     print "$_ => $hash{$_}$/" foreach keys %hash; }   my %h = ( A => 100, B => 200, C => 300 ); test(%h);

 

Answer 2

当然可以了。事实上perl可以返回任意类型的参数。需要注意的是，如果同时返回多个参数，可能需要使用\来将返回“变成”一个$类型。调用者使用$取到返回后，再变回原类型。
比如：
($a,$b) = &ssss;
@a = $a;

sub ssss
{
@array = (1,2,3);
$value = "abc";
return (\@array, $value);
}