08/09/02 18:34:27
>>114,116
抜粋ですが、下記でツリーというかパンくずリストというかそれっぽいものが出力できました。
ただ、ファイル名はrequireした元ではなく全て実行ファイル名になるようで、
あんまり意味無かったかも…
＞my $i = 0;
＞while (($package,
＞ $filename,
＞ $line,
＞ $subroutine,
＞ $hasargs,
＞ $wantarray,
＞ $evaltext,
＞ $is_require,
＞ $hints,
＞ $bitmask) = caller($i++)) {
＞ push @aTree, "$filename\($line\) $subroutine";
＞}
＞my $sRev = join ' => ', (reverse @aTree);
＞print STDERR $sRev
以上、ありがとうございましたー
>>118は無限ループっぽいのでご注意下さい