デバック中に、今いるディレクトリを調べる方法

質問

Perlのデバック中に今いるディレクトリを知りたい場合、一旦プログラムを終了して今いるディレクトリを書き出すコードを追加する以外に方法は無いでしょうか。

それだとディレクトリが移動しそうな場所すべてにコードを追加しないといけないので、結構面倒だと思います。

一番教えて欲しいのはデバッカー内で常に今いるディレクトリを教えてくれる変数のような類です。それができない場合、デバックから抜けることなく今いるディレクトリを知るコマンドのような類は無いでしょうか。

デバッカーとしては、Perlに標準のものの他に、Active Perl のPDKも持っています。

回答No.3

Wap58

perl5db.plをコピーしリネームして2000行目くらいを書き替え
カレントディレクトリか絶対パスでrepuireして
Winは環境変数なのか良く知らないけどパスをとおす

PERL5DB 'BEGIN { require "myperl5db.pl" }'

http://perldoc.jp/docs/perl/5.10.0/perldebug.pod#Debugger32Customization

# The big command dispatch loop. It keeps running until the
# user yields up control again.
#
# If we have a terminal for input, and we get something back
# from readline(), keep on processing.
chomp( my $cd = `pwd` ); ### <= `cd` ここ
CMD:
while (

# We have a terminal, or can get one ...
( $term || &setterm ),

# ... and it belogs to this PID or we get one for this PID ...
( $term_pid == $$ or resetterm(1) ),

# ... and we got a line of command input ...
defined(
$cmd = &readline(
"$cd $pidprompt $tid DB" ### <= `cd` ここ
. ( '<' x $level )
. ( $#hist + 1 )
. ( '>' x $level ) . " "
)
)
)
{

share($cmd);
# ... try to execute the input as debugger commands.

# Don't stop running.
$single = 0;

# No signal is active.
$signal = 0;

# Handle continued commands (ending with ¥):
$cmd =~ s/¥¥$/¥n/ && do {
$cmd .= &readline(" cont: ");
redo CMD;
};