mieki256's diary



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";
    }
}
ハマった。

以上です。

過去ログ表示

Prev - 2004/06 - Next
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30

カテゴリで表示

検索機能は Namazu for hns で提供されています。(詳細指定/ヘルプ


注意: 現在使用の日記自動生成システムは Version 2.19.6 です。
公開されている日記自動生成システムは Version 2.19.5 です。

Powered by hns-2.19.6, HyperNikkiSystem Project