SELFHTML/Quickbar
CGI/Perl
Éléments de langage 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.
Option | signification |
---|---|
-c | le script Perl n'est pas exécuté mais sa syntaxe est seulement contrôlée |
-d | le script Perl est exécuté en mode débogage. Ce mode permet de tester le script Perl. |
-S | le script peut n'être mentionné que par son nom sans chemin. S'il se trouve dans l'un des répertoires nommés dans la variable path du système d'exploitation, l'interpréteur trouvera le fichier même sans la mention de chemin. |
-T | l'absence d'erreurs dans le script est vérifiée minutieusement pendant son exécution. |
-v | donne la version et l'état exact de l'interpréteur Perl. |
-w | fait en sorte que l'interpréteur Perl ne sorte pas seulement les messages d'erreur évidents pour les erreurs de syntaxe mais aussi des avertissements pour des erreurs possibles et pour les suites d'instructions dont la logique est douteuse. |
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.
![]() ![]() |
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.
#!/usr/bin/perl print "Hello monde\n"; |
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 #.
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.
![]() ![]() |
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.
#!/usr/bin/perl $nombre = 42; $carre = $nombre * $nombre; print "Le carré de ", $nombre, " = ", $carre, "\n"; |
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:
![]() ![]() |
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.
if($nombre > 1000) { $nombre = 0; } |
while($i <= 99) { print "le carré de ", $i, " est ", $i * $i, "\n"; $i = $i + 1; } |
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.
![]() ![]() |
À de nombreuses occasions, vous devez attribuer dans Perl vous même des
noms - par exemple pour les variables.
$Donnees = $ENV{'QUERY_STRING'}; |
Pour attribuer des noms, les règles suivantes sont à respecter:
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:![]() |
![]() |
avant:![]() |
![]() |
SELFHTML/Quickbar
CGI/Perl
Éléments de langage Perl
Serge François, 13405@free.fr