Activer les avertissements globaux

Question

Je dois optimiser un intranet écrit en Perl (environ 3000 fichiers). La première chose que je veux faire est d'activer les avertissements "-w" ou "use warnings;" afin que je puisse me débarrasser de toutes ces erreurs, puis essayez d'implémenter "use strict;".

Existe-t-il un moyen de dire à Perl d'utiliser des avertissements tout le temps (comme les paramètres de php.ini pour PHP), sans avoir besoin de modifier chaque script pour ajouter "-w" à sa première ligne?

J'ai même pensé à faire un alias pour /usr/bin/perl, ou le déplacer vers un autre nom et faire un script simple au lieu de simplement ajouter le drapeau -w (comme un proxy).

Comment le débogueriez-vous?

Answer 1

La mise à jour des avertissements et strict est difficile. Je ne recommande pas une approche Big Bang, en mettant des avertissements (et encore moins des restrictions) sur tout. Vous serez inondé d'avertissements au point d'inutilité.

Vous commencez par activer les avertissements sur les modules utilisés par les scripts (il y en a, n'est-ce pas?), Plutôt que d'appliquer des avertissements à tout. Obtenez le noyau propre, puis travaillez sur la périphérie, une unité à la fois. Donc, en fait, je vous recommande d'avoir un script simple (Perl) qui trouve simplement une ligne qui ne commence pas avec un hachage et ajoute use warnings; (et peut-être use strict; aussi, puisque vous allez avoir affaire à un script à un temps), de sorte que vous pouvez faire les rénovations un script à la fois. En d'autres termes, il vaudra probablement mieux éditer chaque fichier au fur et à mesure que vous le rénoverez. Je n'utiliserais que l'option couverture pour faire une simple évaluation de l'ampleur du problème: est-ce un désastre total et complet, ou simplement quelques peccadilles dans quelques fichiers? Malheureusement, si le code a été développé sans avertissements et strict, il est plus susceptible d'être «catastrophe» que «minime».

Vous pouvez constater que vos prédécesseurs étaient enclins à copier et coller et que certains idiomes erronés apparaissent à plusieurs reprises dans le code copié. Ecrivez un script Perl qui corrige chacun d'eux. J'ai un tas de fix* scripts dans mon répertoire personnel bin qui traitent de divers changements - soit la résolution des problèmes créés par des collègues récalcitrants (ou, plus généralement, simplement long quitté) ou pour s'adapter à mes propres normes en constante évolution.

Answer 2

Vous pouvez définir des avertissements et des restrictions pour tous les scripts Perl en ajoutant -Mwarnings -Mstrict à votre variable d'environnement PERL5OPT. Voir perlrun pour plus de détails.

Answer 3

Eh bien ...

Vous pourrait régler le envariable de PERL5OPT pour tenir -w. Voir le perlrun manpage pour plus de détails. J'espère que vous considérerez aussi que le -T ou peut-être -t, pour le suivi de sécurité.

Mais je ne vous envie pas. Le code retrofitting développé sans le bénéfice de use warnings et use strict est généralement un PITA royal.

J'ai quelque chose d'un standard boiler-plate J'utilise pour démarrer de nouveaux programmes Perl. Mais je n'ai pas pensé aux programmes CGI, qui bénéficieraient probablement de quelques ajustements contre cette plaque de chaudière.