Est-il un moyen pour activer le suivi en perl (équivalent à bash -x)?

J'ai un système de script en perl. J'ai besoin de l'équivalent de bash -x afin de déterminer ce qui ne va pas avec le script. Est-il quelque chose d'équivalent?

EDIT: Ce que bash -x n'est qu'elle imprime chaque ligne comme elle est évaluée. Cela rend le débogage de code qui est juste en manque certains variable de chemin d'accès ou au fichier très facile.

Expliquez ce que vous voulez à faire en termes de ce que vous êtes désireux de le faire. Non pas en termes de spécifique shell arbitraires.
double possible de Comment puis-je faire Perl et Python imprimer chaque ligne du programme exécuté?
double possible de Quelles sont les bonnes débogage de Perl méthodes?

InformationsquelleAutor Let_Me_Be | 2010-10-04

39

Prendre un coup d'oeil à Devel::Trace ou Devel::ebug.

Donné à ce programme nommé 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";
}
```
Vous pouvez utiliser Devel::Trace à surveiller l'exécution:
```
perl -d:Trace w.pl
```
Qui produit la sortie suivante:
```
>> 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...
```
- Perl ce message d'erreur: ne Peut pas localiser Devel/Trace.pm in @INC (....
- Cela a fonctionné: PERLDB_OPTS="NonStop Traçage" perl -d ./trial.pl
- Bien sûr, vous devez installer le module de poing: sudo cpan install "Devel::Trace".
InformationsquelleAutor Chas. Owens

La Devel::DumpTrace module est disponible depuis 2011.

Exemple d'utilisation:

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

InformationsquelleAutor mob

7

Vous devriez regarder "perl -d" (activer le débogueur) ou "perl -c" (à vérifier votre script avant d'exécuter
- Soyez averti, "avant l'exécution" ne veut pas dire pas de code s'exécute. Tout le code dans une BEGIN bloc (ou dans un module que ce qui a été inclus avec use) fonctionnera même si vous utilisez le -c option: perl -cle 'BEGIN { print "oops, this runs" } print "but this does not"'.
InformationsquelleAutor Raghuram
2

Toujours inclure ces déclarations dans vos scripts perl:
```
use strict;
use warnings;
```
Si vous souhaitez déboguer, utilisez le -d commutateur. Et voici les commandes: http://www.domainavenue.com/pl-debug.htm

Espère que ça aide.

InformationsquelleAutor Ruel

Vous devez vous connecter pour publier un commentaire.