Czy istnieje sposób, aby włączyć śledzenie w Perl (odpowiednik bash -x)?

Question

Mam skrypt systemowy w Perlu. Potrzebuję odpowiednika basha -x, aby ustalić, co jest nie tak ze skryptem. Czy jest coś podobnego?

EDYTOWANIE: Bash -x ma to, że wypisuje każdą linię w trakcie jej oceny. To sprawia, że ​​kod debugowania, który po prostu brakuje jakiejś zmiennej ścieżki lub pliku jest bardzo łatwy.

Answer 1

Spójrz na Devel::Trace lub Devel::ebug.

Biorąc to program o nazwie 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"; 
} 

Można użyć Devel::Trace obserwować wykonanie:

perl -d:Trace w.pl 

która produkuje następujące dane wyjściowe:

>> 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

Zawsze zawierać te sprawozdania w skryptach Perl

use strict; 
use warnings; 

Jeśli chcesz debugować go, użyj przełącznika -d. A oto polecenia: http://www.domainavenue.com/pl-debug.htm

Nadzieję, że pomaga.

Answer 3

Należy spojrzeć na "perl -d" (włącz debugger) lub "perl -c" (sprawdź swój skrypt przed ex ecuting

Answer 4

Moduł Devel::DumpTrace jest dostępna od użycia 2011.

Sample:

$ 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);