NAME

perldebug - Perl のデバッグ

DESCRIPTION

まず最初に、もう use strict; と use warnings; は使ってみましたか?

もし Perl デバッガに慣れていないなら、デバッガに関するチュートリアルである perldebtut を読んだ方がいいかもしれません。

デバッガがどのように 実装されているか に関する詳細を探している場合は、 perldebguts を読んだ方が良いでしょう。

掘り下げた技術的な使用法の詳細については、デバッガ自体の文書である perl5db.pl を参照してください。

The Perl Debugger

Perl を -d スイッチを付けて起動すれば、スクリプトは Perl ソースデバッガ上で実行されることになります。これは対話的な Perl 環境のように動作し、ソースコードの表示、ブレークポイントの設定、スタックのバックトレース、変数の値の変更、などを実行するデバッガコマンドを入力できます。これはとても便利なので、単にやりたいことを対話的に試すためにデバッガを起動するようになるでしょう。例えば:

    $ perl -d -e 42

しかし、Perl デバッガは典型的なコンパイルされた環境の様に独立したプログラムではありません。その代わりに、 -d フラグによって、コンパイラがインタプリタに渡すパース木にソース情報を埋め込むようにしています。これは、ソースがデバッガ上で動作できるためには、一度正常にコンパイルできないといけないということです。それからインタプリタが起動され、デバッガを含む特別な Perl ライブラリをロードします。

プログラムは、最初の実行時実行文の直前で停止し (ただし、以下コンパイル時実行文については後述します)、以下に示すいずれかのコマンドが入力されるのを待ちます。よくある期待とは逆に、デバッガが停止してある行のコードを表示しているときは、直前に実行した行ではなく、常に今から実行する行を表示します。

デバッガが認識できないコマンドは現在のパッケージ内で Perl のコードとして実行(eval)されます。 (デバッガは自分自身の状態を保存するために DB パッケージを使います。)

eval は暗黙のスコープで区切られていることに注意してください。結果として、新しく導入されたレキシカル変数や変更された捕捉バッファの内容は eval の後失われます。デバッガは Perl を学ぶよい環境ですが、もし同じスコープ内であるべきものを使って対話的に実験したい場合は、それを 1 行に書いてください。

デバッガコマンドとして入力された文字列は、まず先頭と末尾の空白が切り詰められます。デバッガコマンドがプログラムの関数名と一致する場合、関数名の前に ; や + のような、デバッガコマンドに見えない文字を付け加えるか、括弧でくくってください。

デバッガを呼び出す

デバッガを呼び出すにはいくつかの方法があります:

perl -d program_name: program_name で識別されるプログラムに対して。
perl -d -e 0: -e を使って指定された任意の expression を対話的に。
perl -d:ptkdb program_name: Devel::Ptkdb GUI 経由で与えられたプログラムをデバッグする。
perl -dt threaded_program_name: スレッドを使っているプログラムをデバッグする(実験的機能)。

デバッガコマンド

対話式のデバッガは以下のコマンドを理解します:

h

サマリヘルプメッセージを表示します。

h [command]

指定されたコマンドの説明を表示します。

h h

h h という特別なコマンドは、かなり長い、ヘルプ全体を表示します。

h h コマンド(や他のコマンドでも)の出力で画面がスクロールしてしまう場合、以下のようにコマンドの前にパイプ記号をつけるとページャーを呼び出します:

    DB> |h h

使用されるページャーは O pager=... コマンドで変更できます。

p expr

現在のパッケージでの print {$DB::OUT} expr と同じです。特に、これは Perl 自身の print 関数なので、 x コマンドと違って、ネストしたデータ構造やオブジェクトはダンプしません。

STDOUT がどこにリダイレクトされていても、ファイルハンドル DB::OUT は /dev/tty に対してオープンされています。

x [maxdepth] expr

式をリストコンテキストで評価し、結果を多少読みやすい形で表示します。ネストしたデータは再帰的に表示します; これは Perl の実際の print 関数とは異なります。ハッシュをダンプするとき、おそらく 'x %h' より 'x \%h' を好むでしょう。これを自分自身で行いたい場合は Dumpvalue を参照して下さい。

出力フォーマットは "Configurable Options"" in " に記された様々なオプションの影響を受けます。

maxdepth が指定されている場合、それは数値 N でなければなりません; dumpDepth オプションが一時的に N に設定されたかのように、値は N レベルの深さでだけダンプされます。

V [pkg [vars]]

package (デフォルトは main) 内のすべて (または、一部) の変数 (variable) をデータプリティプリンタを使って表示します (ハッシュは何が何か解るように、key と value を表示し、コントロール文字は表示できる形にします)。以下に示すように、symbol は名前だけを示し、($ などの) 型識別子を付けないようにしてください:

    V DB filename line

正と逆の正規表現のためには ~pattern と !pattern を使ってください。

これは有効な変数のそれぞれについて x を呼び出すのと似ています。

X [vars]

V 現在のパッケージ [vars] と同じです。

y [level [vars]]

現在のスコープや、level だけ高いスコープの全て(またはいくつか)のレキシカル変数を表示します(記憶法: mY 変数)。 V や X コマンドと全く同じように、vars を制定することで表示される変数を制限できます。バージョン 0.08 以降の PadWalker モジュールが必要です; もしインストールされていなければ警告されます。出力は V コマンドと同じスタイルにフォーマットされ、このフォーマットは同じオプションで制御されます。

T

スタックのバックトレースを行います。出力についての詳細は後述します。

s [expr]

シングルステップ実行します。サブルーチンをたどりながら、別の実行文の先頭に到達するまで実行します。関数呼び出しを含む式が与えられた場合、これもシングルステップ実行します。

n [expr]

ネクスト。次の実行文の先頭に到達するまで、サブルーチンにまたがって実行します。関数呼び出しを含む式が与えられた場合、各行毎に停止しながら関数を実行します。

r

現在のサブルーチンから戻るまで実行します。 PrintRet がセットされていれば(デフォルトではセットされています) 返り値をダンプします。

<CR>

最後の n または s を繰り返します。

c [line|sub]

続きを実行します; オプションとして、1 回限りのブレークポイントを指定された行またはサブルーチンに設定します。

l

次の 1 画面分をリスト表示します。

l min+incr

min から incr+1 行をリスト表示します。

l min-max

min 行から max 行をリスト表示します。 l - は - と同じです。

l line

指定行をリスト表示します。

l subname

サブルーチンの最初の一画面分をリスト表示します。 subname はコードリファレンスが入った変数でも構いません。

-

前の 1 画面分をリスト表示します。

v [line]

指定行付近の(数行のコードをリスト表示します。

.

最後に実行した行への内部デバッガポインタを返し、その行を表示します。

f filename

異なるファイルまたは eval 行に表示を切り替えます。もし filename が %INC にあるフルパス名でなければ、正規表現として扱われます。

eval した文字列は(アクセス可能なら)ファイル名として扱われます: f (eval 7) と f eval 7\b は (実行した順で) 7 番目に eval した文字列の中身にアクセスします。現在実行した eval の中身と、サブルーチンを定義する eval した中身は保存されるので、アクセス可能です。

/pattern/

pattern を用いて Perl 正規表現による前方検索を行います; 最後の / はなくてもかまいません。デフォルトでは検索は大文字小文字を区別しません。

?pattern?

pattern を用いて後方検索を行います; 最後の ? はなくてもかまいません。デフォルトでは検索は大文字小文字を区別しません。

L [abw]

ブレークポイント、アクション、ウォッチ式を (デフォルトは全て)リストアップします。

S [[!]regex]

regex に一致する(または一致しない)サブルーチン名をリストアップします。

t [n]

トレースモードの on/off を切り替えます (AutoTrace オプションも参照して下さい)。オプションの引数は現在のもの以下でトレースする最大レベル数です; これよりも深いものは沈黙します。

t [n] expr

expr の実行をトレースします。オプションの引数は現在のもの以下でトレースする最大レベル数です; これよりも深いものは沈黙します。例については "Frame Listing Output Examples" in perldebguts を参照して下さい。

b

現在の位置にブレークポイントを設定します。

b [line] [condition]

与えられた行の直前にブレークポイントを設定します。 condition が指定されると、その文にさしかかる度に評価されます: condition が真となったときにだけブレークポイントが働きます。ブレークポイントは、実行可能な文で始まる行にだけ、設定できます。 condition には if を使いません:

    b 237 $x > 30
    b 237 ++$count237 < 11
    b 33 /pattern/i

行番号が . なら、現在行にブレークポイントを設定します:

    b . $n > 100

b [file]:[line] [condition]

ブレークポイントを(おそらくは異なった)ファイルの指定された行に設定します。 condition が指定されると、その文にさしかかる度に評価されます: condition が真となったときにだけブレークポイントが働きます。ブレークポイントは、実行可能な文で始まる行にだけ、設定できます。 condition には if を使いません:

    b lib/MyModule.pm:237 $x > 30
    b /usr/lib/perl5/site_perl/CGI.pm:100 ++$count100 < 11

b subname [condition]

サブルーチンの最初の実行可能文にブレークポイントを設定します。 subname はコードリファレンスが入った変数でも構いません (この場合は condition は非対応です)。

b postpone subname [condition]

コンパイル後、サブルーチンの最初の行にブレークポイントをセットします。

b load filename

filename の最初に実行される行の手前にブレークポイントをセットします; これは %INC の値に含まれるフルパス名であるべきです。

b compile subname

指定されたサブルーチンがコンパイルされた後、最初に実行される文の手前にブレークポイントをセットします。

B line

line で指定されたブレークポイントを削除します。

B *

すべてのブレークポイントを削除します。

disable [file]:[line]

ブレークポイントを向こうにして、プログラムの実行を止めないようにします。ブレークポイントはデフォルトで有効で、enable コマンドを使って再有効化できます。

disable [line]

これは現在のファイルのブレークポイントに対して行われます。

enable [file]:[line]

ブレークポイントを有効にして、プログラムの実行を止めるようにします。

enable [line]

ブレークポイントを有効にして、プログラムの実行を止めるようにします。

これは現在のファイルのブレークポイントに対して行われます。

a [line] command

その行を実行する前に行うアクションを設定します。 line が省略されると、いままさに実行しようとしていた行にアクションを設定します。デバッガが実行する処理の順番は以下の通りです。

  1. この行のブレークポイントをチェックします
  2. 必要なら行を表示します(トレース)
  3. この行に結び付けられたアクションを実行します
  4. ブレークポイントやシングルステップの場合はユーザーに確認します
  5. 行を評価します

例えば、以下のコードは 53 行を通過する毎に $foo を表示します。

    a 53 print "DB FOUND $foo\n"

A line

指定された行に設定されたアクションを削除します。

A *

設定されたすべてのアクションを削除します。

w expr

グローバルなウォッチ式を追加します。グローバルな変更が行われたときは、デバッガは停止して新旧の値を表示します。

W expr

ウォッチ式を削除します。

W *

全てのウォッチ式を削除します。

o

全てのオプションを表示します。

o booloption ...

リストされた各真偽値オプションの値を 1 に設定します。

o anyoption? ...

1 つ、あるいは複数のオプションの値を表示します。

o option=value ...

一つまたは複数のオプションをセットします。値自身に空白を含む場合、クォートする必要があります。例えば、less をオプション付きで呼び出す場合は o pager="less -MQeicsNfr" のようにします。シングルクォートとダブルクォートのどちらでも使えますが、クォートする場合は、クォート文字と同じ文字はエスケープする必要があります; そしてエスケープ文字自身もエスケープして、クォート文字をエスケープしているのではないことを示す必要があります。言い換えると、クォートに関わりなく、シングルクォートルールに従います; 例えば: o option='this isn\'t bad' や o option="She said, \"Isn't it?\""

歴史的な理由により、=value は省略可能ですが、そうするのが安全な場合にのみデフォルトは 1 です -- これは、ほとんどの場合ブール値オプションです。 = を使って指定した値を代入する方が常によいです。 option は短縮できますが、明確化のためにはそうしない方がいいでしょう。いくつかのオプションは互いにセットできます。それらの一覧については "Configurable Options"" in " を参照してください。

< ?

プロンプト表示前に実行するアクションを全て表示します。

< [ command ]

デバッガがプロンプトを出す直前に、毎回実行するアクション (Perl のコマンド)を設定します。複数行の command は、バックスラッシュと改行で書くことができます。

< *

プロンプト表示前に実行するアクションを全て削除します。

<< command

デバッガがプロンプトを出す直前に、毎回実行するアクション (Perl のコマンド)を追加します。複数行の command は、バックスラッシュと改行で書くことができます。

> ?

プロンプト表示後に実行するアクションを全て表示します。

> command

スクリプトの実行に戻るコマンドを入力した時に、デバッガがプロンプトを出した後で、毎回実行するアクション(Perl のコマンド)を設定します。複数行の command は、バックスラッシュと改行で書くことができます (きっとあなたは今までこのことを知らなかったはずです)。

> *

プロンプト表示後に実行するアクションを全て削除します。

>> command

スクリプトの実行に戻るコマンドを入力した時に、デバッガがプロンプトを出した後で、毎回実行するアクション(Perl のコマンド)を追加します。複数行の command は、バックスラッシュと改行で書くことができます。

{ ?

プロンプト表示前に実行するデバッガコマンドを表示します。

{ [ command ]

デバッガがプロンプトを出す前に、毎回実行するアクション(デバッガのコマンド)を設定します。複数行の command は、いつもの方法で書くことができます警告もし command がないと、全てのアクションが消えてしまいます!

このコマンドはある意味新しいので、もし代わりに間違ってブロックを入力したように見えるときには、警告が出ます。本当に奏したい場合は、;{ ... } か、いっそ do { ... } と書いてください。

{ *

プロンプト前に実行するデバッガコマンドを全て削除します。

{{ command

毎回デバッガプロンプトを表示する前に実行するアクション(デバッガコマンド)を追加します。予測可能な方法な方法で複数行コマンドも登録できます: 上記を参照してください。

! number

以前のコマンドを再実行します(number が省略されると、直前のコマンドを実行します)。

! -number

指定数値分前のコマンドを実行します。

! pattern

pattern で始まるうち、最も最近に実行されたコマンドを再実行します。 O recallCommand も参照して下さい。

!! cmd

cmd をサブプロセスとして実行します(DB::IN から読み込み、DB::OUT に書き出します)。 O shellBang も参照してください。ユーザーの現在のシェル(つまり、 $ENV{SHELL} 変数)が使われるので、終了コードの適切な解釈やシグナルとコアダンプの情報が妨害されるかもしれないことに注意してください。

source file

デバッガコマンドを file から読み込んで実行します。 file 自身に source コマンドを含んでいても構いません。

H -number

最近の指定数値分のコマンドを表示します。 2 文字以上のコマンドのみが表示されます。 number が省略されると、全てを表示します。

q or ^D

デバッガを終了します。 (エイリアスを設定しない限り、"quit" はこの目的には使えません。) これはデバッガを終了する唯一の方法ですが、exit を2回入力しても動作します。

スクリプトの最後にステップ実行できるようにしたい場合は、 inhibit_exit オプションに 0 を設定してください。グローバルなデストラクタを実行してステップ実行したい場合は、 $finished に 0 を設定する必要があります。

R

新しいセッションを exec() することでデバッガを再起動します。履歴は残そうと努力しますが、内部設定やコマンドラインオプションは失われるかもしれません。

今のところ、以下の設定は保存されます: 履歴、ブレークポイント、アクション、デバッガオプション、Perl コマンドラインオプション -w, -I, -e。

|dbcmd

デバッガコマンドを実行し、DB::OUT をパイプであなたの現在のページャと繋ぎます。

||dbcmd

|dbcmd と同様ですが、 DB::OUT は一時的に select で選択されているものになります。

= [alias value]

以下のようにコマンドエイリアスを定義する:

    = quit q

または現在のエイリアスの一覧を表示します。

command

command を Perl の文として実行します。文末のセミコロンはなくてもかまいません。 Perl の文が Perl デバッガにとって紛らわしい場合は先頭にセミコロンをつけてください。

m expr

評価した表現の結果が呼び出されたメソッドを一覧表示します。表現は bless されたオブジェクトへのリファレンスか、パッケージ名として評価されます。

M

読み込まれたモジュールとバージョンを全て表示します。

man [manpage]

その名前にも関わらず、これは与えられたページ(manpage が省略された場合はビューワ自身)に対してシステムのデフォルトのドキュメントビューワを呼び出します。ビューワが man の場合、適切な MANPATH や -M manpath オプションを使って man を起動するために、現在の Config 情報が使われます。 XXX の形で一致する man ページの検索に失敗した場合、 perlXXX の形のものを再検索します。これにより、デバッガから man debug や man op とタイプできるようになります。

伝統的に利用可能な man コマンドを奪われたシステムでは、デバッガは< perldoc を起動します。反抗的なベンダーや、より適切には、積極的なユーザーによって、この判断は正しくありません。もしあなたがどちらかの分類に当てはまってしまうなら、Perl のドキュメントを表示するためにどのビューワを使うかを、手動で $DB::doccmd 変数にセットしてください。これは rc ファイルででも、直接の代入ででもセットできます。私たちは以下のような感じで、実際に動作する例を待っています:

    $DB::doccmd = 'netscape -remote http://something.here/';

設定可能なオプション

デバッガには O コマンドで設定できるさまざまなオプションがあります。これは対話的、環境変数、rc ファイルで設定できます。ファイル名は Unix では /dev/tty で ./.perldb または ~/.perldb、それ以外では perldb.ini です。

recallCommand, ShellBang

再呼び出しコマンドとシェル起動に使われる文字です。デフォルトでは、残念ながら、両方とも ! にセットされています。

pager

ページャにパイプされるコマンド(文字 | で始まるもの)の出力に使われるプログラム。デフォルトでは、$ENV{PAGER} が使われます。デバッガは強調と下線に関して現在の端末設定を使うので、もし選択したページャがエスケープシーケンスを変更せずに通過させられない場合、一部のデバッガコマンドの出力は、ページャに送られると読めなくなるでしょう。

tkRunning

プロンプトで (ReadLine と共に) Tk を実行します。

signalLevel, warnLevel, dieLevel

詳細さのレベル。デフォルトでは、デバッガは例外と警告を放っておきます; これを変更すると、プログラムが正しく動かなくなることがあるからです。捕捉されていない INT, BUS, SEGV シグナルがあると、メッセージを表示しようとします。 (しかし、以下の BUGS のシグナルに関する注意を参照してください。)

このデフォルトのセーフモードを無効にするには、これらの値を 0 以上にセットしてください。レベル 1 では、あらゆる種類の警告(これはしばしばうんざりさせるものです)や例外(これはしばしば価値があります)を受信した時にバックトレースを得ます。残念ながら、デバッガは致命的な例外と致命的でない例外を識別できません。 dieLevel は 1 であっても、致命的でない例外もトレースされ、それが eval された 文字列からか、読み込もうとしたモジュール内のあらゆる種類の eval からのものであるなら、突然置き換えられます。 dieLevel が 2 なら、デバッガは例外の出所を気にしません: 例外ハンドラを横取りしてトレースを表示し、それから全ての例外を自身の装飾で修正します。これはある種のトレースの目的にはおそらく有用ですが、例外をまじめに扱っているプログラムをどうしようもなく破壊してしまう傾向があります。

AutoTrace

トレースモード(t コマンドと同様ですが、PERLDB_OPTS に書けます)。

LineInfo

行番号情報を記録するファイルまたはパイプ。これが (|visual_perl_db のように) パイプの場合、短い文章が使われます。これは、特別な vi や emacs のフックや、ddd グラフィカルデバッガのようなスレーブエディタやビジュアルデバッガと相互作用するために使われる機構です。

inhibit_exit

0 だと、スクリプトの最後で プログラムを終了する ことを認めます。

PrintRet

設定されると(デフォルト)、r コマンドの後に返り値を表示します。

ornaments

コマンドラインの画面への表示に影響を与えます(Term::ReadLine を参照してください)。今のところ、これを無効にする方法はありません; これにより、ディスプレイやページャーによっては判読できない出力を行うことがあります。これはバグと考えられています。

frame

サブルーチンへの出入り時のメッセージ表示に影響を与えます。 frame & 2 が偽なら、サブルーチンに入る時にのみメッセージを出力します。 (出るときのメッセージは、他のメッセージがまき散らされているときには有用でしょう。)

frame & 4 の場合、関数の引数に加えて、コンテキストと呼び出し元の情報を表示します。 frame & 8 の場合、引数の表示にオーバーロードされた 文字列化 と tie した FETCH が有効になります。 frame & 16 の場合、サブルーチンからの返り値が表示されます。

引数リストが切り詰められた時の長さは次のオプションの管轄となります:

maxTraceLen

frame オプションの bit 4 がセットされている時の引数リストを切り詰める長さ。

windowSize

コードリストウィンドウの大きさを変更します(デフォルトは 10 行です)。

以下のオプションは V, X, x コマンドに影響を与えます。

arrayDepth, hashDepth: 最初の N 要素だけを表示します('' を指定すると全て表示します)。
dumpDepth: 構造をダンプするときに再帰の深さを N レベルに制限します。負数を指定すると無限として解釈されます。デフォルト: 無限。
compactDump, veryCompact: 配列とハッシュの出力スタイルを変更します。 compactDump の場合は、短い配列は 1 行で表示します。
globPrint: グロブの内容を表示するかどうかです。
DumpDBFiles: デバッグしていているファイルが保持している配列をダンプします。
DumpPackages: パッケージのシンボルテーブルをダンプします。
DumpReused: 「再利用された」アドレスの内容をダンプします。
quote, HighBit, undefPrint: 文字列ダンプのスタイルを変更します。 quote のデフォルトは auto です; " や ' にセットすることでダブルクォート風やシングルクォート風にできます。デフォルトでは、最上位ビットがセットされている文字はそのまま表示されます。
UsageOnly: 基本的なパッケージ単位のメモリ使用量ダンプ。パッケージ内の変数で見つかった文字列のサイズの合計を計算します。モジュールのファイルスコープ内のレキシカルや、クロージャ内で失われたものは含まれません。
HistFile: デバッガの起動時に読み込まれ、(セッションをまたいで永続させるために)終了時に保管されるヒストリ (Term::ReadLine バックエンドが利用可能であることを仮定しています) のファイルのパス。 Bash の .bash_history ファイルと同じ考え方です。
HistSize: ヒストリに保管される行数 (上述の HistFile を仮定します)。

rc ファイルが読み込まれた後、デバッガは $ENV{PERLDB_OPTS} 環境変数を読み込み、デバッガのプロンプトから "O ..." として入力されたかのようにパースします。初期化オプション TTY, noTTY, ReadLine, NonStop もここで設定できます。

rc ファイルに以下のように書くと:

  parse_options("NonStop=1 LineInfo=db.out AutoTrace");

スクリプトは人間の介入なしに実行され、トレース情報を db.out ファイルに出力します。 (中断して、何も表示されない場合は、LineInfo を /dev/tty にリセットしたほうがよいでしょう。)

TTY

デバッグ I/O として TTY を使います。

noTTY

セットすると、デバッガは NonStop モードとなり、TTY と接続されません。もし中断された(または Perl スクリプトから明示的に $DB::signal や $DB::single をセットすることによってデバッガに制御が移った)場合、起動時に TTY オプションで指定された TTY か、実行時に Term::Rendezvous モジュールで選択された TTY に接続されます。

このモジュールは、2 つのメソッド IN と OUT をもつオブジェクトを返すメソッド new を実装する必要があります。これらはそれぞれ、デバッグ入力と出力のためのファイルハンドルを返すようにします。 new メソッドは起動時に $ENV{PERLDB_NOTTY} の値を含んでいる引数を検査し、さもなければ "$ENV{HOME}/.perldbtty$$" となります。このファイルは適切な所有権について検査されないので、理論的にはセキュリティの問題が起こり得ます。

ReadLine

偽だと、デバッグするアプリケーション自身が ReadLine を使うために、 readline 対応を無効にします。

NonStop

設定されると、デバッガは中断されるか、プログラム的に $DB::signal か $DB::single に設定されるまで、非対話的モードとなります。

以下に $ENV{PERLDB_OPTS} 変数を使った例を示します:

    $ PERLDB_OPTS="NonStop frame=2" perl -d myprogram

これは、人間の関与なしでスクリプト myprogram を実行し、進入と終了のポイントの呼び出し木を表示します。 NonStop=1 frame=2 は N f=2 と等価で、もともとオプションは最初の文字 (Dump* オプションを法として) に省略できます。それでもやはり、読みやすさと将来の互換性のために、常にフルスペルを書くことが推奨されます。

もう一つの例としては:

    $ PERLDB_OPTS="NonStop LineInfo=listing frame=2" perl -d myprogram

とするとスクリプトは非対話的に実行され、サブルーチンへの進入と実行行を listing という名前のファイルに記録します。 (中断すると、何か「対話的」にするために LineInfo をリセットする方が良いでしょう!)

(環境変数設定を表示する標準シェル構文を使った)もう一つの例としては:

  $ ( PERLDB_OPTS="NonStop frame=1 AutoTrace LineInfo=tperl.out"
      perl -d myprogram )

これは Term::ReadLine 地震を使っているプログラムをデバッグするのに便利です。以下のようなコマンドを使って、使用中のシェルを、/dev/ttyXX に対応するウィンドウの TTY からデタッチすることを忘れないで下さい:

  $ sleep 1000000

詳細については "Debugger Internals" in perldebguts を参照してください。

デバッガの入出力

Prompt

デバッガのプロンプトは以下のようだったり:

    DB<8>

あるいは以下のようだったりします:

    DB<<17>>

ここで数値はコマンド番号で、組み込みの csh 風履歴機構を使ってアクセスするのに使います。例えば、!17 はコマンド番号 17 を再実行します。不等号の深さはデバッガのネストの深さを示します。例えば、既にブレークポイントにいて、それ自身にもブレークポイントを含む関数呼び出しの結果を表示させたり、s/n/t expression コマンドを使って式をステップ実行したりした時に複数の不等号の組を見ることがあります。

Multiline commands

複数の文からなるサブルーチン定義やフォーマットといった、複数行のコマンドを入力したい場合は、通常はデバッガコマンドを終了させる改行をバックスラッシュでエスケープしてください。以下は例です:

      DB<1> for (1..4) {         \
      cont:     print "ok\n";   \
      cont: }
      ok
      ok
      ok
      ok

この、改行をエスケープする問題は、対話的にデバッガに入力されたコマンドに特有であることに注意してください。

Stack backtrace

これは、T コマンドによって表示されるスタックバックトレースの例です:

 $ = main::infested called from file 'Ambulation.pm' line 10
 @ = Ambulation::legs(1, 2, 3, 4) called from file 'camel_flea'
                                                          line 7
 $ = main::pests('bactrian', 4) called from file 'camel_flea'
                                                          line 4

上記の左側の文字は関数が呼び出されたコンテキストを示しています; $ と @ はそれぞれスカラコンテキストとリストコンテキストを意味し、 . は無効コンテキスト(実際のところはスカラコンテキストのようなもの)を意味します。上記の表示は、スタックダンプを実行したときに main::infested にいて、これはファイル Ambulation.pm の 10 行目から、スカラコンテキストで引数なしで呼び出されています; つまり &infested のようにして呼び出されています。次のスタックフレームは、関数 Ambulation::legs が camel_flea からリストコンテキストで 4 つの引数と共に呼び出されています。最後のスタックフレームは、main::pests が、同じファイル camel_flea の 4 行目からスカラコンテキストで呼び出されています。

有効な use 文の中から T コマンドを実行すると、バックとレースには require フレームと eval フレームの両方が含まれます。

Line Listing Format

これは l コマンドの出力を示しています:

   DB<<13>> l
 101:        @i{@i} = ();
 102:b       @isa{@i,$pack} = ()
 103             if(exists $i{$prevpack} || exists $isa{$pack});
 104     }
 105
 106     next
 107==>      if(exists $isa{$pack});
 108
 109:a   if ($extra-- > 0) {
 110:        %isa = ($pack,1);

ブレーク可能な行には : が付いています。ブレークポイントのある行には b が、アクションがある行には a があります。今から実行しようとしている行には ==> が付いています。

デバッガで表示されるコードは、元のソースコードと同じように見えるとは限らないことに注意してください。行指示子と外部ソースフィルタが、Perl がコードを見る前にコードを変更することがあり、それによってコードが元の位置から移動したり、完全に異なる形になったりします。

Frame listing

frame オプションが設定されると、デバッガはサブルーチンに入ったとき (および出たときもオプションで)違ったスタイルで表示します。これらの非常に長い例については perldebguts を参照してください。

コンパイル時に実行される文のデバッグ

コンパイル時に実行される文 (BEGIN, UNITCHECK, CHECK のブロック内のコードや use 文) があれば、それらはデバッガによって止めることができません; require と INIT ブロックは可能です; また、コンパイル時実行文は PERLDB_OPTS で AutoTrace オプションを設定することでトレースできます。しかし、以下のような文を自分で Perl コードに含めれば、デバッガに制御を渡すことができます; この文は、デバッガを起動していないときには、何もしません:

    $DB::single = 1;

$DB::single に 2 をセットすると、nコマンドをタイプしたのと等価になります; 1 を設定すると s コマンドとなります。 $DB::trace 変数は t コマンドをタイプした状態をシミュレートするために 1 にセットするべきです。

コンパイル時に実行されるコードをデバッグするもう一つの方法は、モジュールの load にブレークポイントを設定して:

    DB<7> b load f:/perllib/lib/Carp.pm
  Will stop on load of 'f:/perllib/lib/Carp.pm'.

(可能なら) R コマンドを使ってデバッガを再起動することです。 b compile subname も同じ目的に使えます。

デバッガのカスタマイズ

デバッガにはおそらくあなたが自分で修正する必要があるとは思わないようなところまで含んだ設定フックがあります。デバッガの振る舞いは、デバッガ内で o コマンドを使って変更できます; これは PERLDB_OPT 環境変数経由でコマンドラインからか、設定ファイルから変更できます。

初期化コードを入れたファイル .perldb を設定することでも、いくらかのカスタマイズができます。たとえば、以下のようなエイリアスが行えます (最後のものは、人々があると思っているものです):

    $DB::alias{'len'}  = 's/^len(.*)/p length($1)/';
    $DB::alias{'stop'} = 's/^stop (at|in)/b/';
    $DB::alias{'ps'}   = 's/^ps\b/p scalar /';
    $DB::alias{'quit'} = 's/^quit(\s*)/exit/';

.perldb のオプションを、以下のような呼び出しによって変更できます:

    parse_options("NonStop=1 LineInfo=db.out AutoTrace=1 frame=2");

コードは DB パッケージで実行されます。 .perldb は PERLDB_OPTS の前に処理されることに注意してください。 .perldb で afterinit サブルーチンが定義されていると、この関数はデバッガの初期化終了後に呼び出されます。 .perldb はカレントディレクトリかホームディレクトリに置くことができます。このファイルは Perl によって実行され、任意のコマンドを含めることができるので、セキュリティ上の理由から、スーパーユーザーが現在のユーザーによって所有され、所有者以外には書込み禁止になっていなければなりません。

@DB::typeahead に任意のコマンドを追加することで、デバッガへの TTY 入力を模倣できます。例えば、あなたの .perldb ファイルに以下のように書くと:

    sub afterinit { push @DB::typeahead, "b 4", "b 6"; }

デバッガ初期化の直後に 4 行目と 6 行目にブレークポイントを設定しようとします。 @DB::typeahead はサポートしているインターフェースではなく、将来のリリースでは変更されることがあることに注意してください。

デバッガを変更したい場合には、perl5db.pl を Perl ライブラリから別の名前にコピーし、修正してください。それから環境変数 PERL5DB には、以下のように設定する必要があるでしょう:

    BEGIN { require "myperl5db.pl" }

最後の手段として、 PERL5DB を、直接内部変数を設定したりデバッガ関数を呼び出すことでデバッガをカスタマイズすることもできます。

このドキュメント(や perldebguts)に記述されていない変数や関数は内部使用専用として扱われ、予告なく変更されることがあります。

readline 対応 / デバッガのヒストリ

出荷時の状態では、コマンドライン履歴参照機能として提供されるのは、エクスクラメーションマークを付けることによる単純なものだけです。しかし、(Term::ReadLine::Gnu, Term::ReadLine::Perl, ... のように) CPAN から Term::ReadKey と Term::ReadLine のモジュールをインストールすることで、GNU readline(3) が提供するような完全な編集機能が使えるようになります。これらは CPAN の modules/by-module/Term ディレクトリにあります。しかし、これらは通常の vi コマンドライン編集は対応していません。

基本的なパッケージ単位のメモリ使用量ダンプ; PadWalker モジュールがインストールされているなら現在のスコープのレキシカル変数も含みます。

Readline 対応なしでは、矢印キーやバックスペースキーを使うと "^[[A", "^[[C", "^[[B", "^[[D"", "^H" のような表示を見るかもしれません。

デバッグのためのエディタ対応

GNU 版の emacs がシステムにインストールされている場合は、 C デバッガとの連携を連想させるような、Perl デバッガとの統合ソフトウェア開発環境を提供します。

最近のバージョンの Emacs には emacs を Perl の文法(の一部)を解釈する文法指向のエディタとして振舞わせるためのスタートファイルを同梱しています。 perlfaq3 を参照してください。

vi ユーザーは、Perl のキーワードを色付けする、マウスとウィンドウ対応の vim と gvim を調べてみてください。

perl のみが完全に Perl をパースできるので、これら全ての CASE ツールには足りないところがあることに注意してください; 特に C プログラマーが書くような Perl プログラムを書いていない場合はそうです。

Perl プロファイラ

Perl の実行に代替デバッガを使いたい場合は、-d オプションにコロンとパッケージからなる引数を付けてスクリプトを起動してください。 Perl 用代替デバッガは Perl プロファイラを含む Devel::DProf で、CPAN 配布として別に利用可能です。ファイル mycode.pl にある Perl プログラムをプロファイリングしたい場合、以下のようにします:

    $ perl -d:NYTProf mycode.pl

スクリプトが終了すると、プロファイラはプロファイラのツールを使ってレポートに変換出来るプロファイル情報のデータベースを作成します。詳しくは perlperf を参照してください。

正規表現のデバッグ

use re 'debug' を指定すると、Perl 正規表現エンジンがどのように動作するかの詳細を見ることができます。この、典型的には大量の出力を理解するためには、一般的に正規表現マッチがどのように行われるかだけでなく、 Perl の正規表現が内部的にどのようにオートマトンにコンパイルされるかを知らなければなりません。これらの事柄は詳細は "Debugging Regular Expressions" in perldebguts にあります。

メモリ使用のデバッグ

Perl には自身のメモリ使用状況を報告するための内部機能がありますが、しかしこれはかなり上級の概念で、メモリ割り当てがどのように行われるかについての理解が必要となります。詳細については "Debugging Perl Memory Usage" in perldebguts を参照して下さい。

BUGS

C や C++ 拡張のような、Perl でコンパイルされていないものに対してスタックフレーム情報やあらゆるデバッグ関数を使うことはできません。

サブルーチン内で(shift や pop を使って) @_ 引数を変更した場合、スタックバックトレースで元の値を表示することはできません。

デバッガは現在のところ -W コマンドラインスイッチと同時に使うことはできません; これ自身が警告から逃れられないからです。

(キーボードやソケットからの wait, accept, readなどの)遅いシステムコールを実行中で、独自の $SIG{INT} ハンドラを設定していない場合、デバッガに戻ってくるために CTRL-C を使うことはできません; これは、デバッガ自身の $SIG{INT} ハンドラが遅いシステムコールから longjmp(3) で出るための例外を発生させる必要性を理解しないからです。