一種可能的方法是使用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的內部結構并不熟悉,無法解釋為何重命名.

我希望這有幫助.

總結

以上是生活随笔為你收集整理的linux查看perl进程,如何找到挂起perl脚本(linux进程)的位置的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。