Perlコーディング初心者質問スレ Part 38

[0369 nobodyさん 04/10/28 09:10:58 ID:???]

別にグローバルならrefをreturnしてもいいけど、こうじゃないの？
my %HoA;
&XXX(\%HoA);
print @{$HoA{'key_name'}};
exit;

sub XXX {
my $refHoA = $_[0];
push @{$$refHoA{'key_name'}}, "value1", "value2";
return(0);
}