Perlで木構造を扱う - リファレンスを使って 目次 とりあえずデータをそれっぽく並べてみる。 深さ優先でトラバースしてみる。 実行結果 あれれれ? あっ、そうか。 修正版 (2003-02-20: 少し汎用化) 実行結果 参照 リファレンスを使って Perlの配列はフラットなので、ネストしたデータ構造を扱うのに苦労してます。 とりあえずデータをそれっぽく並べてみる。 $creatures = ["生物", ["哺乳類",["鯨",["霊長類",["人","猿"]],"犬"]], ["魚類",["鯖","鯛","秋刀魚"]], ["両生類",["蛙"]] ]; 深さ優先でトラバースしてみる。 sub depth_first($$) { my $depth = shift; my $raList = shift; foreach (@{$raList}) { if (ref($_) eq