2006-10-05 Perlで呼び出し元ファイル名と行番号の取得 __FILE__とか __LINE__よりたぶんこっちのほうがいい。 http://www2u.biglobe.ne.jp/~MAS/perl/waza/caller.html