Devel::Trace

work Perl

シェルには-xオプションやset -xがあるが、Perlにはない。エビデンス取る時に困るじゃないかって事で、Devel::Traceを入れてみた。

$ perl -d:Trace -e 'print "hoge\n";'
>> -e:1: print "hoge\n";
hoge

ってな感じに-d:Traceをつければ良し。

中身が気になって除いて見た。が、さっぱり。

my ($p, $f, $l) = caller;
my $code = \@{"::_<$f"};
print STDERR ">> $f:$l: $code->[$l]";

一行目は理解できる。二行目の\@{"::_<$f"}って何？ 教えてエロい人〜