Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Programmation PERL Cours n°1 Nassim ZELLAL 2012/2013 Perl - généralités  Perl

Programmation PERL Cours n°1 Nassim ZELLAL 2012/2013 Perl - généralités  Perl est un langage de programmation créé par Larry Wall en 1987.  Langage de programmation procédurale particulièrement adapté au traitement des données textuelles.  Langage interprété, il n'y a pas de phase intermédiaire de compilation car l'interpréteur, qui s’appelle « perl » en minuscules compile le code sans que le programmeur ne s'en rende compte puis, il l'exécute. Mon premier script PERL Ouvrir un éditeur de texte (Notepad++). Écrire dans un fichier (test.pl) ce qui suit :  #!/usr/bin/perl print "Je suis étudiant en informatique ! \n"; Pour l’exécuter, ouvrir une invite de commandes et lancer le script perl : perl test.pl Mon deuxième script PERL (passage des paramètres avec la variable spéciale $ARGV[x]) Écrire dans un fichier (test2.pl) ce qui suit :  #!/usr/bin/perl print "Je suis étudiant en $ARGV[0] et je m’appelle $ARGV[1]! \n"; Pour l’exécuter, ouvrir une invite de commandes et lancer le script perl : perl test2.pl Commentaires en PERL Écrire dans un fichier (test3.pl) ce qui suit :  # ceci est un commentaire print "Coucou !\n" Pour l’exécuter, ouvrir une invite de commandes et lancer le script perl : perl test3.pl Remarque : raccourci sous Notepad++ : Ctrl + q (valable aussi pour les commentaires multilignes) Trois types de variables en PERL  Scalaire  Tableau  Tableau associatif (table de hachage) Nommage des variables  lettres (minuscules ou majuscules, ASCII de préférence)  Chiffres  _ (tiret bas)  précédé de $, @ ou %  Exemples :  $maChaine  $MaChaine2  $Ma_2eme_Chaine  $2eme_chaine  $ma chaine 2  $ma-chaine Affectation d’une valeur à une variable  variable = valeur  Exemples :  $machaine = "toto";  $monnombre = 33;  @maliste = ('toto', 'titi');  %notes = ("cours1", 15, "cours2", 18, "cours3", 11); Perl - scalaires  Une variable de type scalaire est une :  chaîne de caractères  nombre Perl - scalaires - chaîne de caractères  'Coucou !' une chaîne littérale  "Coucou !"  'Coucou\n' \n n'est pas interprété  "Coucou\n" \n est interprété comme le retour à la ligne  "tu es \"magnifique\" échappement des "  "je veux utiliser un \\" \ est interprété comme un caractère spécial "d'échappement (déspécialisation) "  "" une chaîne vide Perl - scalaires - comparaison de chaînes de caractères  . concaténation  x multiplication (de chaîne de caractères) Opérateurs de comparaison :  eq égalité => Retourne 1 si $x contient la chaîne "Bonjour", sinon 0  ne inégalité => Retourne 1 si $x est différente de "Toto", sinon 0  lt plus petit que (less than) => Retourne 1 si $x est inférieure à "Toto", sinon 0  gt plus grand que (greater than) => Retourne 1 si $x est supérieure à "Toto", sinon 0  le plus petit ou égal à (less than or equal) => Retourne 1 si $x est inférieure ou égale à "Toto", sinon 0  ge plus grand ou égal à (greater than or equal) => Retourne 1 si $x est supérieure ou égale à "Toto", sinon 0 Perl - scalaires - opérations sur les chaînes de caractères  Operations :  "mon"." "."chien" => "mon chien"  "a"x3 => "aaa" Perl - scalaires - opérations sur les nombres  $a = (1 + 2) * 3 - 4; # retourne 5 dans $a (règle de priorité)  $a = 1 + 2 * 3 - 4; # retourne 3 dans $a (règle de priorité)  $a= 8 - 4 - 2; retourne 2 et non 6 (règle d’associativité)  $a = 7 / 8; # Divise 7 par 8 et met 0.875 dans $a  $a = 9 ** 10; # 9 à la puissance 10  $a = 5 % 2; # le reste de 5 divisé par 2 (modulo)  ++$a; # retourne $a augmenté de 1 (pré-incrémentation)  $a++; # retourne $a avant de l'augmenter de 1 (post- incrémentation)  --$a; # retourne $a diminué de 1  $a--; # retourne $a avant de le diminuer de 1 Perl - scalaires - comparaison de nombres  $a == $b # Retourne vrai si $a est égal à $b  $a != $b # Retourne vrai si $a est différent de $b  $a > $b # Retourne vrai si $a est supérieur à $b  $a < $b # Retourne vrai si $a est inférieur à $b  $a >= $b # Retourne vrai si $a est supérieur ou égal à $b  $a <= $b # Retourne vrai si $a est inférieur ou égal à $b Perl - opérateurs d’assignement  $a = $b; # Assigne $b à $a  $a += $b; # ajoute $b à $a et met le résultat dans $a  $a -= $b; # soustrait $b de $a et met le résultat dans $a  $a .= $b; # ajoute la chaine $b à la fin de $a Perl - opérateurs logiques (booléens)  || OU logique => Vérifie qu'une des conditions est réalisée ((condition1)||(condition2))  && ET logique => Vérifie que toutes les conditions sont réalisées ((condition1)&&(condition2))  ! NON logique => Inverse l'état d'une variable booléenne (retourne la valeur 1 si la variable vaut 0, 0 si elle vaut 1) (!condition) Remarque: depuis Perl5 une notation plus agréable existe : or(au lieu de ||), and(au lieu de &&), not(au lieu de !) Adresse de téléchargement de PERL http://www.activestate.com/activeperl/downloads Mon courriel nassim_zellal@yahoo.fr uploads/Industriel/ cours-1-perl 1 .pdf