Discussion :

[Lolo78]

Nouvelle question de la FAQ sur le débogage en Perl: A quoi sert le pragma "use strict;" ?
____________

Le pragma use strict; interdit certaines constructions syntaxiques jugées dangereuses: le compilateur échoue lorsqu'il rencontre ce genre de constructions (le programme ne peut même pas être lancé).

Il est presque toujours utile d'interdire ces constructions dangereuses, si bien qu'il est fortement recommandé de toujours mettre ce pragma en tête de tous vos programmes (sauf éventuellement pour les scripts unilignes).

Il y a trois types de constructions rendues interdites par l'utilisation du pragma use strict;: celles relatives aux variables ('vars'), aux fonctions ('subs') et aux références ('refs'). Il est possible d'interdire ces types constructions de façon individuelle et d'en autoriser d'autres. Par exemple si l'on désire interdire seulement les constructions relatives aux fonctions, on utilisera le pragma use strict 'subs';. Lorsque l'on utilise seulement use strict;, on interdit les trois types de constructions sans distinction. Donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

use strict;

est équivalent à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
use strict "vars";
use strict "refs";
use strict "subs";

Dans la très grande majorité des cas, on utilisera simplement use strict;, parce que l'on désire généralement interdire les trois types de constructions. A condition d'avoir une très bonne raison de le faire (et de très bien savoir ce que l'on fait), il est possible de désactiver temporairement l'une de ces interdictions, en utilisant par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use strict; # en début de programme
# ... du code Perl
no strict "refs";
# une ou deux lignes de code utilisant des références symboliques
use strict "refs";

Désactiver ainsi l'une des interdictions permet dans certains cas de faire des constructions "magiques", mais ce n'est pas recommandé en-dehors de cas exceptionnels, et il y a presque toujours moyen de faire autrement.

• strict "vars" : interdit les variables qui n'ont pas été déclarées (avec les fonctions my, our ou state) avant d'être utilisées):
  
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  use strict "vars";
   
  my $toto = 5;       # OK, à cause de my
  our $titi = "titi"; # OK à cause de our
  $tutu = "tutu";     # ne marche pas parce que $tutu n'a pas été déclaré
  $MonPackage::i = 1  # OK, parce que le nom de la variable est donné en entier
                      # avec le paquetage auquel elle appartient
  my @tableau = 1..10;
  my $compte_elements = scalar @tableau; # compte les éléments de @tableau
  print "$compte_element \n"; # erreur de compilation: erreur sur le nom de la variable

  Comme on le voit sur le dernier exemple, use strict 'vars'; permet notamment de détecter d'éventuelles erreurs (assez fréquentes) sur le nom des variables:
  
  Les variables spéciales $a et $b utilisées par la fonction sort sont exemptées de cette obligation de déclaration préalable.

• strict "refs" : interdit l'utilisation (volontaire ou non) des références symboliques (qui étaient utiles en Perl 4, mais n'ont plus de raison d'être employées avec les références "dures" et les structures de données complexes de Perl 5):
  
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
  7
  8
  use strict "refs";
  my $toto = 10;
  $ref = \$toto;
  print $$ref;	# ok, imprime le contenu de $toto, donc 10
  our $titi = 20;
  $ref = "titi";
  print $$ref;	# erreur à l'exécution car c'est une référence symbolique.
                  # Imprimerait le contenu de $titi, donc 20, sans le strict vars

• strict "subs" : interdit l'utilisation de mots nus (barewords) pour les identifiants autres que les identifiants des fonctions (les mots nus restent toutefois autorisés pour les clefs des hachages s'ils sont encadrés par des { et }, ou à gauche de la "virgule grasse" =>) :
  
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  use strict "subs";
  my %mois = (un => "janvier", deux = "février"); # OK
  $mois{trois} = mars;    # erreur: mars est un mot nu
  $mois{quatre} = "avril";  # OK, en raison des guillemets autour d'avril

[djibril]

J'ai rajouté !

[Lolo78]

Bonjour,

j'ai ajouté trois questions à la FAQ sur le débogage en Perl.

[djibril]

Par cnotre, pense à mettre des balises code perl pour la coloration.
[code=perl]

Tu as aussi une question vide.

[Lolo78]

Bonjour Djibril,

la question vide, c'est juste une fausse manip. Tu peux la virer (j'ai essayé de le faire, mais n'ai pas les droits).

Je note pour les balises, j'ignorais. J'ai modifié. Sinon, n'hésite pas à modifier s'il en reste.

[Lolo78]

Encore une nouvelle question de la FAQ sur le débogage en Perl.

[djibril]

Très bien.

[Lolo78]

J'ai ajouté une nouvelle question dans la FAQ sur le débogage en Perl.