2004/06/30(水) [n年前の日記]
#2 [prog] perlで複数の配列や連想配列を関数に渡したい
_引数にリファレンスを指定する
らしい。
&func( $datdir, \@filelist, \%kind );
sub func{
my ($datdir, $filelist, $kind) = @_;
print "$datdir\n";
foreach my $key ( @{ $filelist } ){
print "$key", "\n";
}
foreach my $key ( keys % { $kind } ){
print "$key: $kind->{$key}", "\n";
}
}
ハマった。
[ ツッコむ ]
以上です。