Pourquoi ce programme est-il valable ? J'essayais de créer une erreur de syntaxe

Question

J'utilise la version 32 bits d'ActiveState. ActivePerl 5.14.2 sur Windows 7. Je voulais m'amuser avec un hook pre-commit Git pour détecter les programmes qui sont archivés avec des erreurs de syntaxe. (D'une manière ou d'une autre, j'ai réussi à faire un mauvais commit.) Donc, comme programme de test, j'ai noté ceci au hasard :

use strict;
use warnings;

Syntax error!

exit 0;

Cependant, il compile et exécute sans aucun avertissement, et le niveau d'erreur est de zéro à la sortie. Comment cette syntaxe peut-elle être valide ?

Answer 1

Perl possède une syntaxe appelée "notation de méthode indirecte". Elle permet

Foo->new($bar)

s'écrit comme suit

new Foo $bar

Cela signifie donc

Syntax error ! exit 0;

est la même chose que

error->Syntax(! exit 0);

ou

error->Syntax(!exit(0));

Non seulement c'est une syntaxe valide, mais cela n'entraîne pas d'erreur d'exécution car la première chose exécutée est exit(0) .

Answer 2

Je ne sais pas pourquoi, mais c'est ce que Perl en fait :

perl -MO=Deparse -w yuck
BEGIN { $^W = 1; }
use warnings;
use strict 'refs';
'error'->Syntax(!exit(0));
yuck syntax OK

Il semble que le parseur pense que vous appelez la méthode Syntax sur le error -objet... Étrange en effet !

Answer 3

La raison pour laquelle vous n'obtenez pas d'erreur est que le premier code exécuté est

exit(0);

Parce que vous n'avez pas mis de point-virgule sur la première ligne :

Syntax error!

Le compilateur supposera (de manière incorrecte) qu'il s'agit d'un appel de sous-routine avec un paramètre not opérateur ! jeté dans. Elle exécutera ensuite les arguments de cette sous-routine, qui se trouvent être exit(0) Le programme se termine alors et le niveau d'erreur est fixé à 0. Rien d'autre n'est exécuté, et aucune autre erreur d'exécution n'est signalée.

Vous remarquerez que si vous changez exit(0) à quelque chose comme print "Hello world!" vous obtenez une erreur :

Can't locate object method "Syntax" via package "error" ...

et votre niveau d'erreur sera défini :

> echo %errorlevel%
255

Answer 4

Comme indiqué ci-dessus, cela est dû à la notation d'appel indirect de méthodes. Vous pouvez émettre un avertissement à ce sujet :

use strict;
use warnings;
no indirect;

Syntax error!

exit 0;

Produit :

Indirect call of method "Syntax" on object "error" at - line 5.

Pour cela, il faut module CPAN indirect .

Vous pouvez également utiliser no indirect "fatal"; pour provoquer la mort du programme (c'est ce que je fais)

Answer 5

Essayez Perl 6 il semble répondre plus facilement à vos attentes :

===SORRY!=== Error while compiling synerror.p6
Negation metaoperator not followed by valid infix
at synerror.p6:1
------> Syntax error!⏏<EOL>
    expecting any of:
        infix
        infix stopper