ハッシュのループ処理
#15 ハッシュのループ処理をしてみよう
use strict; use warnings; # ループ処理(foreach) my %sales = ("tanaka"=>150,"suzuki"=>300,"ohira"=>200); foreach my $key (keys(%sales)){ print"sales for $key is $sales{$key}\n"; }
sales for ohira is 200
sales for suzuki is 300
sales for tanaka is 150
と表示されていることを確認。
配列の中身は浮動であるので注意。