memo.xight.org

日々のメモ

多次元連想配列の走査

Source

foreach $firstkey (keys %HOGE){
	print "<b>$firstkey:</b><br>";
	foreach $secondkey (keys %{$HOGE{$firstkey}}){
		print "$secondkey = $HOGE{$firstkey}{$secondkey}<br>";
	}
	print "<br>\n";
}

Reference

  お気楽極楽スクリプト - スクリプト制作メモ - Perlの変数について
  http://www.bayashi.net/st/pdmemo/variable.html