Как подключить отладчик к запущенному процессу Perl?

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, но, может быть, вы могли бы получить что-то полезное из strace?

strace -f -s512 -p <PID> 

Answer 2

Во-первых, используйте DEBUGGING perl, если вы хотите проверить его с помощью gdb.

Пожалуйста, определите «застрял». Занято или не занято ожидание (высокий или низкий процессор), есть память или нет? С 1 пока он занят. Я обычно получаю ожидание (бесконечные циклы) при повреждении HV в Perl_hfree_next_entry() с 5.15. Ожидание ожидания без ожидания обычно выполняется при чтении блокирующего ввода-вывода.

я правильно:

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

и может проверить все, гораздо больше, чем с простой PERL отладчик. При использовании non-threaded perl вы должны ввести меньше.

`(gdb) p Perl_op_dump(PL_op)` 

и так далее.

Если вы имеете дело с perl: внутри функции pp_stub не рекомендуется вводить runbooter Enbugger, вы должны находиться в главной runloop в dump.c. Установите точку останова на указанную строку.

«ошибка для объекта 0x3» на звуке eval, как внутреннее повреждение в контексте, поэтому вы должны посмотреть на указатели cx и stack. Наверное, потому что вы начали его в плохом контексте.

Answer 3

http://metacpan.org/pod/App::Stacktrace «perl-stacktrace печатает Perl стеки стеков потоков Perl для данного процесса Perl. Для каждого кадра Perl напечатано полное имя файла и номер строки. "