如何在perl子函数中传递hash

Question

如何在perl子函数中传递hash

Answer 1

1234567sub 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);}