Question

我有一个正在运行的Perl进程，我想用调试器在里面查看是什么问题。我无法重启这个过程。我可以将调试器附加到正在运行的进程吗？我知道我可以做gdb -p，但gdb对我不起作用。我试过Enbugger，但失败了：

$ perl -e 'while (1) {}'&
[1] 86836
$ gdb -p 86836
…
Attaching to process 86836.
Reading symbols for shared libraries . done
Reading symbols for shared libraries ............................. done
Reading symbols for shared libraries + done
0x000000010c1694c6 in Perl_pp_stub ()
(gdb) call (void*)Perl_eval_pv("require Enbugger;Enbugger->stop;",0)
perl(86836) malloc: *** error for object 0x3: pointer being realloc'd was not allocated
*** set a breakpoint in malloc_error_break to debug

Program received signal SIGABRT, Aborted.
0x00007fff8269d82a in __kill ()
The program being debugged was signaled while in a function called from GDB.
GDB remains in the frame where the signal was received.
To change this behavior use "set unwindonsignal on"
Evaluation of the expression containing the function (Perl_eval_pv) will be abandoned.
(gdb)

我做错了吗？还有其他选择吗？

P.S。如果您认为自己可以从连接到正在运行的进程的调试器中受益，则可以插入由SIGUSR1触发的调试器后门：

use Enbugger::OnError 'USR1';

然后你可以简单kill -USR1 pid，你的进程将跳转到调试器。

Answer 1

首先，如果你想用gdb检查它，请使用DEBUGGING perl。

请定义“卡住”。忙碌或非忙碌等待（CPU高或低），是否吃东西？在1时它正忙着等待。从5.15开始，我经常在Perl_hfree_next_entry（）中的HV损坏等待（无休止的循环）。非忙等待通常等待阻塞IO读取。

我明白了：

`0x00007fba15ab35c1 in Perl_runops_debug () at dump.c:2266`
`2266       } while ((PL_op = PL_op->op_ppaddr(aTHX)));`

并且可以检查所有内容，而不仅仅是使用简单的perl调试器。使用非线程perl，你必须输入更少。

`(gdb) p Perl_op_dump(PL_op)`

等等。

如果你必须使用perl：在pp_stub函数中，输入Enbugger runloop并不是一个好主意，你应该在dump.c中的主runloop中。将断点设置为显示的行。

eval声音中的“对象0x3的错误”与上下文中的内部损坏一样，因此您应该查看cx和堆栈指针。可能是因为你在糟糕的环境中开始了它。

Answer 2

我从未使用过gdb，但也许你可以从strace中得到一些有用的东西？

strace -f -s512 -p <PID>

Answer 3

http://metacpan.org/pod/App::Stacktrace “perl-stacktrace为给定的Perl进程打印Perl线程的Perl堆栈跟踪。对于每个Perl帧，将打印完整的文件名和行号。“

如何将调试器附加到正在运行的Perl进程？

3 个答案: