=head1 NAME

Enjoy! Perl Programming - No.33

=head1 SYNOPSIS

ハッシュ - ハッシュ利用の実際

    foreach (@ary) { $hash{$_} = 1 };

=head1 DESCRIPTION

ハッシュを利用した処理の実際について。

=head2 重複した値を取除く

キーが重複しないことを利用して、重複した値を取除くことが出来る。

    @ary = qw(key5 key1 key2 key2 key2 key5 key3 key4 key3 key4);
    foreach (@ary) { $hash{$_} = 1 };
    print keys %hash, "\n"; # key1key2key3key4key5

=head2 同じキーの値を合計する

キーが重複しないことを利用して、同じキーの値を合計する。

    $data =<<DATA;
    A,80
    B,40
    A,100
    A,65
    C,40
    B,70
    C,75
    DATA
    @ary = split /\n/, $data;
    foreach (@ary)
    {
        ($key, $val) = split /,/;
        $hash{$key} += $val;
    }
    while (($key, $val) = each %hash)
    {
        print "$key = $val\n";
    }
    # A = 245
    # B = 110
    # C = 115

=head2 環境変数の値を表示する

Perlに渡された環境変数は "%ENV" 特殊ハッシュ変数に格納されるので、
次のようにして現在の環境変数を表示することが出来る。

    while (($key, $val) = each %ENV)
    {
        print "$key : $val\n";
    }

=head1 SEE ALSO

    "perldata","perlfaq4","perlvar" ドキュメントページ。

=head1 TESTED

 OS  : Windows 2000
 Perl: ActivePerl v5.6.1 build 631

=head1 AUTHOR

 Name：吉田和弘（YOSHIDA Kazuhiro）
 Email：y-kazu@lares.dti.ne.jp
 Homepage：http://www.lares.dti.ne.jp/~y-kazu/perl/