SELFHTML/Quickbar  CGI/Perl  Éléments de langage Perl

	Généralités sur les scripts Perl
	Possibilités d'appel de l'interpréteur Perl  Règles pour les scripts Perl et commentaires en Perl  Noter des instructions  Noter des blocs d'instructions  Attribution de noms

Possibilités d'appel de l'interpréteur Perl

Pour exécuter et tester vos propres scripts Perl, vous devez avoir  installé un interpréteur Perl. Pour mettre en oeuvre Perl comme langage pour les scripts CGI, il faut en outre  installer un serveur WWW.

Vous pouvez appeler l'interpréteur Perl avec un script Perl, donc un fichier avec du code Perl. De tels fichiers ont l'extension standard .pl. L'interpréteur Perl est lancé normalement tout simplement avec perl. Si par exemple, vous avez un script Perl nommé hellomonde.pl, vous pouvez démarrer ce script avec perl hellomonde.pl. Le cas échéant, vous devez appeler les deux fichiers avec leur nom de chemin correct, donc par exemple c:\www\bin\perl.exe c:\scripts\perl\hellomonde.pl (Dans cet exemple la syntaxe du nom de chemin est celle de MS-Windows).

Par ailleurs, il y a bon nombre d'options pour l'appel de l'interpréteur Perl. Les options suivent immédiatement le nom du fichier programme et précèdent donc le nom du script Perl, donc par exemple perl -c test.pl. Vous pouvez aussi mettre plusieurs options à la suite. Notez simplement pour le faire un signe moins suivi de toutes les lettres d'options désirées par exemple perl -cwT test.pl

La liste suivante contient les options importantes pour l'appel de l'interpréteur Perl.

Tuyau:

Si vous désirez essayer vous même les exemples que vous trouvez dans les descriptions Perl de ce document, copiez les exemples, par l'intermédiaire du presse-papiers de votre système d'exploitation, directement du navigateur WWW dans un éditeur de texte. Sauvegardez le contenu dans un fichier Perl, par exemple sous le nom test.pl. Appelez l'interpréteur Perl avec ce fichier. Faites le dans la mesure du possible sur la ligne d'invite de commande (DOS ou Unix-Shell par exemple), étant donné que beaucoup de ces exemples écrivent leurs résultats sur la sortie standard.

Règles pour les scripts Perl et commentaires en Perl

Les scripts Perl peuvent être établis et modifiés avec tout éditeur ASCII. L'idéal est un éditeur de programmation puissant qui peut être configuré de façon à soutenir au mieux la programmation en Perl, par exemple par des blocs de texte du langage sauvegardés en mémoire.

Sauvegardez les scripts Perl dans un fichier portant l'extension .pl.

Pour construire un script Perl, il n'y a qu'une règle fixe: la première ligne doit comporter une instruction qui donne le répertoire où se trouve le fichier exécutable de l'interpréteur Perl.

Exemple d'un script Perl complet:

#!/usr/bin/perl
print "Hello monde\n";

Explication:

L'instruction concernant l'emplacement de l'interpréteur Perl sur l'ordinateur commence par les signes #! - suivis de la mention du chemin. À partir de la ligne suivante, vous pouvez noter des  instructions dans le langage Perl - comme dans l'exemple la sortie des deux mots "Hello monde" sur la sortie standard.

L'instruction concernant l'emplacement de l'interpréteur Perl sur l'ordinateur est évaluée avant tout par les systèmes Unix et compatibles Unix et cela si le fichier Perl est fixé sur le mode "exécutable". Le fichier peut alors être appelé directement et démarre l'interpréteur Perl. Si vous travaillez sous d'autres environnements que Unix, notez simplement la ligne habituelle avec la mention de chemin habituelle (#!/usr/bin/perl) dans la première ligne de votre script Perl. Si le script n'était alors pas exécuté, notez le chemin exact du fichier exécutable de l'interpréteur Perl. Utilisez pour le faire toujours de simples barres obliques pour séparer les répertoires, même si votre ordinateur travaille sous DOS -/Windows.

La ligne avec l'instruction sur l'emplacement de l'interpréteur Perl est en même temps un commentaire d'après la syntaxe Perl. Les commentaires commencent par le signe dièse #. Tout ce qui est compris entre ce signe et la fin de la même ligne est ignoré par l'interpréteur Perl. Pour des commentaires de plusieurs lignes, il vous faut commencer toutes les lignes concernées avec un #.

Attention:

Si vous avez installé Perl en relation avec un serveur WWW moderne avec support CGI, la ligne concernant l'emplacement de l'interpréteur Perl n'est souvent pas significative. Car la mention du chemin de l'interpréteur Perl fait aussi partie entre temps de la  configuration du serveur WWW. Quand, avec le serveur WWW en marche, un script Perl est exécuté par le protocole HTTP, le serveur WWW appelle l'interpréteur Perl conformément à sa configuration.

Noter des instructions

Perl est constitué comme d'autres langages de programmation d'une série contrôlée d'instructions. Ce sont des commandes évaluées par l'interpréteur Perl et transcrites en code machine, qui est exécutable sur l'ordinateur de l'utilisateur.

Il existe des instructions simples et d'autres plus complexes.

Exemples:

#!/usr/bin/perl

$nombre = 42;
$carre = $nombre * $nombre;
print "Le carré de ", $nombre, " = ", $carre, "\n";

Explication:

Une instruction en Perl est constituée par une commande qui se termine en principe par un point virgule ;.

Une instruction c'est par exemple:

• quand vous affectez une valeur à une  variable, comme dans l'exemple l'instruction $nombre = 42;.
• quand vous exécutez une opération avec des variables ou des valeurs, comme ci-dessus dans la deuxième instruction.
• quand vous appelez une  fonction Perl comme ci-dessus dans la troisième instruction.

Noter des blocs d'instructions

Un bloc d'instructions est constitué d'   instructions, qui figurent à l'intérieur d'une instruction parente. Des blocs d'instructions peuvent ainsi figurer par exemple dans une  instruction conditionnelle ou dans une  boucle. Même toutes les instructions qui figurent dans un  sous-programme, forment un bloc d'instructions.

Exemple 1:

if($nombre > 1000)
 {
  $nombre = 0;
 }

Exemple 2:

while($i <= 99)
 {
  print "le carré de ", $i, " est ", $i * $i, "\n";
  $i = $i + 1;
 }

Explication:

Un bloc d'instructions commence par une parenthèse accolade d'ouverture { et se termine par une parenthèse accolade de fermeture }.

Pour les instructions conditionnelles (comme dans l'exemple 1 ci-dessus) ou pour les boucles (comme dans l'exemple 2 ci-dessus) vous devez toujours noter de tels blocs d'instructions, même si il n'y a qu'une seule instruction à exécuter pour la condition ou la boucle.

Les blocs d'instructions peuvent naturellement être imbriqués.

Attribution de noms

À de nombreuses occasions, vous devez attribuer dans Perl vous même des noms - par exemple pour les  variables.

Exemple:

$Donnees = $ENV{'QUERY_STRING'};

Explication:

Pour attribuer des noms, les règles suivantes sont à respecter:

• ils ne doivent pas contenir d'espace
• leur longueur maximale ne doit pas excéder 32 caractères
• ils ne doivent constitués que de lettres et de chiffres - le premier signe devant être une lettre; majuscules et minuscules sont permises
• ils ne doivent contenir ni accents ni trémas ni umlauts, etc.
• le seul caractère spécial permis est le tiret de soulignement "_" 

Attribuez des noms évocateurs et qui vous signaleront, même six mois après avoir écrit le script, leur signification. Cela peut être des noms en français à condition de respecter les règles mentionnées.

après:	Variables et types de données
avant:	Formulaires HTML et CGI

SELFHTML/Quickbar  CGI/Perl  Éléments de langage Perl

© 1998 Stefan Münz / © 2001 Traduction  Serge François, 13405@free.fr