purazumakoiの[はてなブログ]

技術メモから最近はライフログも増えてきてます。

perlで連想配列のforeach

#連想配列
$postFields{"hoge"} = "fuga";

# これだと意図したとおりのものが取れない
foreach my $name ($postFields){
  print "$name¥n";
}

#これで取れる
foreach my $key(keys(%postFields)){
  print "$postFields{$key}¥n";
}