続きは・・・
サンプル：ハッシュのエントリーについて何か処理したい
whileループでeach関数を使って、ハッシュのキーと値を取り出すことができます。
(キー, ハッシュの値) = each(ハッシュ変数)
each関数には、定義済みのハッシュ変数を指定します。
戻り値は、ハッシュのキーとハッシュのペアのリストが返されます。whileループを回すことによってハッシュのエントリを処理して、エントリがなくなるとwhileループを終了します。
プログラム例
#!/usr/bin/perl
my %hash;
print "【AFCアジアチャンピオンズリーグ ケディリ vs 浦和】" , "\n";
print "本日の試合の浦和レッズスターティングメンバー" , "\n";
$hash{"ゴールキーパー"} = "都築 龍太";
$hash{"ディフェンダー１"} = "坪井 慶介";
$hash{"ディフェンダー２"} = "ネネ";
$hash{"ディフェンダー３"} = "堀之内 聖";
$hash{"ミッドフィルダー１"} = "平川 忠亮";
$hash{"ミッドフィルダー２"} = "鈴木 啓太";
$hash{"ミッドフィルダー３"} = "小野 伸二";
$hash{"ミッドフィルダー４"} = "阿部 勇樹";
$hash{"ミッドフィルダー５"} = "相馬 崇人";
$hash{"ミッドフィルダー６"} = "ポンテ";
$hash{"フォワード"} = "永井 雄一郎";
$hash{"監督"} = "ホルガー・オジェック";
while ( ($key , $value) = each(%hash) ) {
print $key , "\t", $value , "\n";
}
[it-engineer@home1 perl]#
実行結果
[it-engineer@home1 perl]# perl 20070520-1.pl
【AFCアジアチャンピオンズリーグ ケディリ vs 浦和】
本日の試合の浦和レッズスターティングメンバー
ミッドフィルダー５ 相馬 崇人
ミッドフィルダー４ 阿部 勇樹
ミッドフィルダー２ 鈴木 啓太
ゴールキーパー 都築 龍太
フォワード 永井 雄一郎
ディフェンダー３ 堀之内 聖
監督 ホルガー・オジェック
ミッドフィルダー３ 小野 伸二
ディフェンダー１ 坪井 慶介
ミッドフィルダー６ ポンテ
ディフェンダー２ ネネ
ミッドフィルダー１ 平川 忠亮
[it-engineer@home1 perl]#
