Plan de cours
- introduction
- dis, c’est quoi perl?
- t’as pas encore perl sur ta machine?
- les principes essentiels de perl
- pour commencer
- les listes
- l’interpolation de variable
- la selection par les patterns : le matching
- les tableaux associatifs
- perl en detail
- les variables scalaires
- les listes et les tableaux
- structures de controle
- les tableaux associatifs
- les entrees/sorties
- les expressions regulieres
- les fonctions
- diverses structures de controle
- les manipulateurs de fichiers et les tests sur les fichiers
- les formats
- les repertoires
- manipulation de fichiers et de repertoires
- la gestion de processus
- autres transformations sur les donnees
- acces aux donnees systeme
- manipulation de bases de donnees utilisateur
- convertir dautres langages en perl
- complements
- exemple dapplication
- un systeme de reservation de vols
- le programme perl
- resultats
- exercices
- enonces
- solutions
- annexe : le guide de reference de perl
Profitez de ce manuel de formation en PDF pour comprendre mieux le perl et enrichir votre connaissance.
Commencez à télécharger ce cours adapté pour vous et à apprendre perl.
Le langage PERL juin 1995Page 10La condition $credit!=0 est vraie tant que $credit ne vaut pas 0. L’opérateur != (différent) compare deux valeurs numériques et retournevraisi la première est différente de laseconde; sinon il retournefaux.Perl n’a pas de type booléen; une valeur est vraie si elle est différente de 0 ou « 0 » ou » »(chaîne vide). Les opérateurs relationnels tels que ==, !=, <, … retournent 1 pourvrai, 0 pourfaux. D’autres opérateurs peuvent retourner d’autres valeurs non nulles pourvraiet la chaînevide pourfaux.Donc tout ce qui a une valeur peut être utilisé comme condition d’unwhile; par exemple, uneaffectation, puisqu’elle retourne la valeur finale de la variable affectée: !#/usr/bin/perlwhile ( $_ = ){ print $_; } Ce script permet de faire afficher les unes à la suite des autres toutes les lignes des fichierspassés en argument dans la ligne de commande. C’est l’équivalent de la commande shellcat.ARGV est un filehandle; est l’entrée.Si ce script est enregistré sous le nomequivcatet quetoto,tutuettitisont des fichiers, la lignede commande: > equivcat toto tutu titi a pour résultat le stockage de la première ligne detotodans $_ et son impression sur la sortiestandard. Puis la deuxième ligne detotoest rangée dans $_ et affichée. Et ainsi de suitejusqu’à épuisement detoto. L’opération est alors réitérée avectutu, puis avectiti.Le script précédent peut encore être simplifié: !#/usr/bin/perlwhile ( ){ print ; } On obtient le même résultat que précédemment. En effet, et représentent la mêmechose; de plus, un symbole désignant une entrée, utilisé seul dans une condition de boucle while , affecte automatiquement la variable $_ ; enfin, si lon ne précise pas de paramètre à print , le contenu de $_ est affiché par défaut.L’autre façon d’exprimer une condition en Perl est d’utiliserif. L’exemple suivant estl’équivalent dugrepdu shell: !#/usr/bin/perl$pattern = shift( @ARGV );while (){ if ( /$pattern/) { print ; }}