一种可能的方法是使用gdb.
首先,您需要为perl解释器调试符号.例如,在我的Debian系统上,我必须为此安装perl-debug软件包.在安装之后我们有/usr/lib / debug /usr/bin/perl,我们稍后会将它传递给gdb.请注意,原始卡住的Perl脚本是使用/usr/bin/perl启动的,而不是新安装的调试版本.
为了这个例子,让我们运行这个Perl脚本:
$cat test.pl
#! /usr/bin/perl
use strict;
use warnings;
print "pid: ", $$, "\n";
while (1) {
print "line ", __LINE__, "\n"; sleep 1;
print "line ", __LINE__, "\n"; sleep 1;
}
当我们运行它时,我们得到一个输出,如:
$./test.pl
pid: 15764
line 9
line 10
line 9
line 10
^C
现在让我们启动gdb.使用test.pl现在运行的pid打印.我们在一些初始信息(“从……读取符号”)后得到提示:
$gdb /usr/lib/debug/usr/bin/perl 15809
[snip]
(gdb)
同时,由于将gdb附加到perl解释器,perl会被停止:
$./test.pl
pid: 15809
line 9
line 10
[snip]
line 9
line 10
line 9
[no further output]
现在,让我们回到gdb进行回溯:
(gdb) backtrace
#0 0x00007fd5b4479830 in __nanosleep_nocancel () at ../sysdeps/unix/syscall-template.S:82
#1 0x00007fd5b44796c0 in __sleep (seconds=) at ../sysdeps/unix/sysv/linux/sleep.c:138
#2 0x00007fd5b4efc1e2 in Perl_pp_sleep (my_perl=0x1a91010) at pp_sys.c:4586
#3 0x00007fd5b4ea89b6 in Perl_runops_standard (my_perl=0x1a91010) at run.c:41
#4 0x00007fd5b4e4a585 in S_run_body (oldscope=1, my_perl=0x1a91010) at perl.c:2350
#5 perl_run (my_perl=0x1a91010) at perl.c:2268
#6 0x0000000000400f89 in main (argc=2, argv=0x7fff4de87628, env=0x7fff4de87640) at perlmain.c:120
很可能,perl恰好在睡眠中停止了().但是哪一个?
现在我们需要确定在哪里查找当前正在执行的(Perl)源文件和行的perl内部信息.最初我找到了一些相关的信息in the doumentation of mod_perl.在那里寻找curinfo宏.
(gdb) p my_perl->Icurcop->cop_file
$1 = 0x1abd810 "./test.pl"
(gdb) p my_perl->Icurcop->cop_line
$2 = 9
我们可以看到我们在test.pl的第9行 – 正如预期的那样基于脚本的输出.
链接文档提到了有关线程/非线程perl二进制文件的一些差异(上面的例子是针对线程perl,v5.14.2).它看起来有点过时,因为它谈论my_perl-> Tcurcop,而我找到了我想要的名字my_perl-> Icurcop.目前,我对perl的内部结构并不熟悉,无法解释为何重命名.
我希望这有帮助.