小粋空間  -  a cheap joke and a play on words site

Perlで実行した行を出力するDevel::Trace

Perlで実行した行を出力するDevel::Traceの使い方です。

１．はじめに

PerlではDevel::Traceを利用することで、実行した行を標準出力に出力することができます。

また、Devel::Trace::Moreを利用することでファイルに出力することもできます。

各モジュールはcpanmなどでインストールしてください。

ここではWindowsでの動作結果を用いていますが、Linuxでも同じと思います。

２．実行した行を標準出力する

実行した行を標準出力するには、shebang行に-「-d:Trace」を追加します。

test.pl

#!/usr/bin/perl -d:Trace
use strict;
 
my $a = 10;
my $b;
for ( my $i=0; $i<10; $i++ ) {
    $b++;
}

実行すれば次のように出力されます。

C:\>test.pl
>> C:\test.pl:5: my $a = 10;
>> C:\test.pl:6: my $b;
>> C:\test.pl:8: for ( my $i=0; $i<10; $i++ ) {
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;
>> C:\test.pl:9:     $b++;

shebang行ではなく、perlのオプションに「-d:Trace」を付与しても同じ結果になるようですが、こちらの環境での実験では確認できておりません。

C:\>test.pl -d:Trace

３．ファイルに出力する

２項を、

c:\>test.pl > /tmp/result.txt

とリダイレクトしても、結果がファイルに出力されない場合があるようです。

ということで、ファイルに出力するにはDevel::Trace::Moreを利用してみます。

#!/usr/bin/perl -d:Trace::More
use strict;
 
Devel::Trace::More::output_to('/tmp/result.txt');
my $a = 10;
my $b;
for ( my $i=0; $i<10; $i++ ) {
    $b++;
}

これを実行すれば２項と同じ実行結果がファイルに出力されます。

output_to()は出力が開始する一番先頭に付与する必要があるようです。

４．インデントが分るかようにする

下記の記事の改変を行えば、出力結果にネストをつけることもできます。

コールトレースを追うデバッグ用モジュール