Có cách nào để bật truy tìm trong perl (tương đương với bash -x) không?

Question

Tôi có một kịch bản hệ thống trong perl. Tôi cần một số tương đương với bash -x để xác định những gì đang xảy ra với kịch bản. Có cái gì đó tương đương?

CHỈNH SỬA: Điều bash -x thực hiện là nó in mỗi dòng khi được đánh giá. Điều này làm cho mã gỡ lỗi mà chỉ là thiếu một số biến đường dẫn hoặc tập tin rất dễ dàng.

Answer 1

Hãy xem Devel::Trace hoặc Devel::ebug.

Given chương trình này có tên là w.pl:

#!/usr/bin/perl 

use strict; 
use warnings; 

my $answer = 42; 

if ($answer == 6 * 9) { 
    print "everything is running fine.\n"; 
} else { 
    warn "there must be a bug somewhere...\n"; 
} 

Bạn có thể sử dụng Devel::Trace để xem việc thực hiện:

perl -d:Trace w.pl 

nào xuất ra như sau:

>> w.pl:6: my $answer = 42; 
>> w.pl:8: if ($answer == 6 * 9) { 
>> w.pl:11:  warn "there must be a bug somewhere...\n"; 
there must be a bug somewhere... 

Answer 2

Luôn luôn bao gồm các báo cáo trong các kịch bản perl của bạn:

use strict; 
use warnings; 

Nếu bạn muốn gỡ lỗi nó, sử dụng -d switch. Và đây là các lệnh: http://www.domainavenue.com/pl-debug.htm

Hy vọng điều đó sẽ hữu ích.

Answer 3

Bạn nên xem xét "perl -d" (bật trình gỡ lỗi) hoặc "perl -c" (kiểm tra tập lệnh của bạn trước khi cũ ecuting

Answer 4

Module Devel::DumpTrace đã có sẵn từ sử dụng năm 2011.

mẫu:

$ cat demo.pl 
# demo.pl 
# a demonstration of Devel::DumpTrace 
$a = 1; 
$b = 3; 
$c = 2 * $a + 7 * $b; 
@d = ($a, $b, $c + $b); 

$ perl -d:DumpTrace demo.pl 
>>>>> demo.pl:3:  $a:1 = 1; 
>>>>> demo.pl:4:  $b:3 = 3; 
>>>>> demo.pl:5:  $c:23 = 2 * $a:1 + 7 * $b:3; 
>>>>> demo.pl:6:  @d:(1,3,26) = ($a:1, $b:3, $c:23 + $b:3);