Différences entre versions de « Perl »

De Didaquest
Aller à la navigationAller à la recherche
 
(180 versions intermédiaires par 2 utilisateurs non affichées)
Ligne 13 : Ligne 13 :
 
[[{{FULLPAGENAME}}]] (Français)  
 
[[{{FULLPAGENAME}}]] (Français)  
 
/ [[Perl]]  (Anglais)  
 
/ [[Perl]]  (Anglais)  
−
/ [[Perl]] (Arabe)
+
/ [[بيرل لغة البرمجة]] (Arabe)
  
 
}}<!-- ************** Fin Fiche Didactique Traduction ********************* -->
 
}}<!-- ************** Fin Fiche Didactique Traduction ********************* -->
Ligne 48 : Ligne 48 :
 
|Définition= <!-- Ne pas Modifier  -->
 
|Définition= <!-- Ne pas Modifier  -->
 
<!-- *************** Commercez les modifications *******************-->
 
<!-- *************** Commercez les modifications *******************-->
−
 
+
{{@}} <span style="color:purple" >'''Définition''' </span>
−
*Perl, un langage de script intelligent.
+
*'''Perl''' ('''P'''ractical '''E'''xtraction and '''R'''eport '''L'''anguage) ou '''(langage pratique d'extraction et de génération de rapports'''):
−
Le langage Perl est réputé pour être un langage de script qui cherche à comprendre et exécuter la volonté du développeur.  
+
*'''Perl''' est un langage de programmation créé par '''Larry Wall en 1987''' et reprenant des fonctionnalités du langage C et des langages de scripts sed, awk et shell (sh).
−
*......................................................................
+
* C'est un langage '''interprété, polyvalent,''' et particulièrement adapté au traitement et à la manipulation de '''fichiers texte''', notamment du fait de l'intégration des expressions régulières dans la syntaxe même du langage.
−
.......................................................................
 
−
.......................................................................
 
−
 
 
 
<!-- ******** Fin Définition Générale ***************************** -->
 
<!-- ******** Fin Définition Générale ***************************** -->
 
<!-- ************* Début Définition Approfondissement ************* -->
 
<!-- ************* Début Définition Approfondissement ************* -->
Ligne 60 : Ligne 57 :
 
|Typologie= <!------------------------------------ Ne pas Modifier  -->
 
|Typologie= <!------------------------------------ Ne pas Modifier  -->
 
<!-- ****************** Commercez les modifications ****************-->
 
<!-- ****************** Commercez les modifications ****************-->
−
*......................................................................
+
{{@}} <span style="color:purple" >'''Information sur  Perl'''</span>
−
.......................................................................
+
 
−
.......................................................................
+
      <span style="color:blue">'''* Date de première version:'''</span> 18 décembre 1987 .
−
.......................................................................
+
 
−
*......................................................................
+
      <span style="color:blue">'''* Paradigmes:'''</span> Objet, impératif, fonctionnel, réflexif, procédural, événementiel, générique
−
.......................................................................
+
 
−
.......................................................................
+
      <span style="color:blue">'''* Auteur''':</span> Larry Wall
 +
 
 +
      <span style="color:blue">'''* Développeurs:'''</span> The Perl Foundation
 +
 
 +
      <span style="color:blue">'''* Licence:'''</span> Licence artistique 1.0[4][5] ou licence publique générale GNU[6]
 +
                   
 +
      <span style="color:blue">'''* Dernière version:'''</span> 5.32.1 (23 janvier 2021)
 +
 
 +
      <span style="color:blue">'''* Système d'exploitation:'''</span> Multiplateforme
 +
 
 +
      <span style="color:blue">'''* Typage:'''</span> Faible, dynamique
 +
 
 +
      <span style="color:blue">'''* Influencé par:'''</span> C, BASIC, Eiffel, shell, sed, awk
 +
 
 +
      <span style="color:blue">'''* Écrit en:'''</span> C
 +
 
 +
      <span style="color:blue">'''* Extensions de noms de fichiers:'''</span> .plx, .pl, .pm, .xs, .t, .pod
 +
 
 +
      <span style="color:blue">'''* Site internet:'''</span> www.perl.org
 +
 
 +
{{@}} <span style="color:purple" > '''Environnement Perl''' </span>
 +
*Pour travailler avec Perl, vous allez avoir besoin de deux programmes : <span style="color: purple">'''un interpréteur Perl'''</span>  et  <span style="color: purple"> '''un éditeur de texte'''</span>.
 +
*Pour installer l’interpréteur Perl sur votre machine, rendez vous sur http://strawberryperl.com/, puis cliquez sur la version qui correspond à votre ordinateur.  
 +
*Maintenant, pour programmer il faut utiliser un éditeur de texte pour écrire '''le fichier source''' d'un programme écrit en Perl.
 +
  Il en existe plusieurs editeurs comme :*[[Fichier:Gedit.jpeg|80px]] ,  *[[Fichier:Notepad++.jpeg|150px]]'''Notepad++......
 +
 +
*Maintenant que vous avez tous les outils nécessaires pour coder en Perl, nous allons enfin réaliser notre premier programme !
 +
 
 +
{{@}} <span style="color:purple" >'''votre premier programme'''</span>
 +
  Exemple
 +
 
 +
      '''use strict;
 +
      use warnings;
 +
      print "Hello, world!";
 +
      <>;'''
 +
   
 +
      La première ligne est un commentaire obligatoire qui indique '''l'endroit où les trouve l'interpréteur Perl.'''
 +
 
 +
      La deuxième ligne est une commande, qui '''imprimera Hello, world! à l'écran une fois exécuté le programme'''
 +
 
 +
{{@}} <span style="color:purple" > '''comment exécuter un programme perl'''</span>
 +
 
 +
Le mettre dans un fichier, par exemple '''helloworld.pl'''.
 +
 
 +
Rendre le fichier exécutable ('''LINUX: chmod u+x helloworld.pl''').
 +
 
 +
Taper le nom du fichier helloworld.pl
 +
 
 +
    [[Fichier:Exec.png]]
 +
 
 
}}<!-- ******** Fin Fiche Didactique Définition ******************* -->
 
}}<!-- ******** Fin Fiche Didactique Définition ******************* -->
  
Ligne 81 : Ligne 127 :
  
 
<!-- Remplacez, Adaptez, Ajoutez ou Supprimez les images et lignes non utilisées-->
 
<!-- Remplacez, Adaptez, Ajoutez ou Supprimez les images et lignes non utilisées-->
−
Image:PERL.jpeg|LOGO Perl
+
Image:PERL.jpeg|
−
Image:Definition-graphique-concept2.png|Titre de Votre Image 2
+
Image:PERLLOGO3.jpeg|
−
Image:Definition-graphique-concept3.png|Titre de Votre Image 3
+
Image:Cpan.jpeg|vignette‎|
 +
Image:LARRY.jpg|cadre‎
  
 
</gallery><!-- ************** Fin modification images***************************-->
 
</gallery><!-- ************** Fin modification images***************************-->
Ligne 94 : Ligne 141 :
 
<!-- ****************** Commercez les modifications pour les Vidéos *******************************************************-->
 
<!-- ****************** Commercez les modifications pour les Vidéos *******************************************************-->
  
−
<youtube width="220" height="220">k0O8-0kPQmM</youtube>
+
<youtube width="220" height="220">LJ7zzYa-_j8&t=7s</youtube>
−
<youtube width="220" height="220">iIlCg439eHQ</youtube>
+
<youtube width="220" height="220">rOVOOO8MU_Q</youtube>
−
<youtube width="220" height="220">k0O8-0kPQmM</youtube>
+
<youtube width="220" height="220">x-zj-y12Ra8</youtube>
 +
<youtube width="220" height="220">joMHrFJITOs</youtube>
  
 
}}<!-- ************************* Fin modifications pour les Médias *******************************************************-->
 
}}<!-- ************************* Fin modifications pour les Médias *******************************************************-->
Ligne 109 : Ligne 157 :
 
<!----------------- Commencez les modifications des Mots Clés --------------------->
 
<!----------------- Commencez les modifications des Mots Clés --------------------->
  
−
|Mot-Clé-1=
+
|Mot-Clé-1= Informatique
−
|Mot-Clé-2=
+
|Mot-Clé-2= Algorithmique
−
|Mot-Clé-3=
+
|Mot-Clé-3= Programmation
−
|Mot-Clé-4=
+
|Mot-Clé-4= Langage de programmation
−
|Mot-Clé-5=
+
|Mot-Clé-5= Langage Perl
−
|Mot-Clé-6=
+
|Mot-Clé-6= Outils Perl
−
|Mot-Clé-7=
+
|Mot-Clé-7= Langages à classes
−
|Mot-Clé-8=
+
|Mot-Clé-8= Programmation impérative structurée
−
|Mot-Clé-9=
+
|Mot-Clé-9= Programmation déclarative
 
|Mot-Clé-10=
 
|Mot-Clé-10=
  
 
}}<!-- ********************* FIN Fiche Didactique Mots-clés *******************-->
 
}}<!-- ********************* FIN Fiche Didactique Mots-clés *******************-->
−
 
  
 
= {{Widget:Exemples-applications-utilisations-Fiche}} =
 
= {{Widget:Exemples-applications-utilisations-Fiche}} =
Ligne 132 : Ligne 179 :
 
<!-- Compléter les pointillés et Supprimer les lignes non utilisées          -->
 
<!-- Compléter les pointillés et Supprimer les lignes non utilisées          -->
 
<!-- ****************** Commercez les modifications ***********************  -->
 
<!-- ****************** Commercez les modifications ***********************  -->
 +
{{@}} <span style="color:purple" >'''Syntaxe du langage''' </span>
 +
 +
*Perl est dérivé du langage C et a conservé un grand nombre d'éléments de sa syntaxe (syntaxe de la boucle for, bloc délimité par des accolades, point-virgule en fin de ligne, indice des tableaux entre crochet, etc...).
 +
    '''a) Les types de données'''
 +
        Perl est un langage faiblement typé.
 +
        Il existe principalement '''trois structures de données''' : '''les scalaires, les tableaux et les tables de hachage'''.
 +
        *[[Fichier:Type.png|Type.png]]
 +
 +
        Chaque structure de données est liée à un caractère spécial.
 +
          '''.1)Les variables scalaires'''
 +
                Les variables scalaires peuvent contenir soit '''des nombres soit des chaînes de caractères.'''
 +
 
 +
                *[[Fichier:TYPES.png|TYPES.png]]
 +
                        '''*Exemple'''
 +
                        $priority = 9;
 +
                        $priority = "high";
 +
                        $priority = 'high';
 +
              Les noms des variables  ne commencent jamais par un nombre. Elles ont pour préfixe le caractère $. La variable $_ est spéciale.
 +
              *'''Assignation'''
 +
              Les opérateurs arithmétiques fonctionnent comme en C.
 +
                    '''*Exemple'''
 +
                        $a = 1 + 2;
 +
                        $a++;
 +
                *'''Les opérateurs sur les Strings''' sont les suivants:
 +
                    '''*Exemple'''
 +
                        $a = $b . $c;  # Concaténation de $b et $c
 +
                        $a = $b x $c;  # $b est répété $c fois
 +
                        $a .= $b;      # On ajoute (append) $b à $a (String)
 +
              *'''Affichage des variables'''
 +
                    '''*Exemple'''
 +
                    Le code suivant affiche "pommes et poires" :
 +
                        $a = "pommes";
 +
                        $b = "poires";
 +
                        print "$a et $b\n";
  
−
*...............................................................................
+
                    Le code suivant affiche "4 pommes" :
−
................................................................................
+
                        $a = "pommes";
−
................................................................................
+
                        $b = 4;
−
................................................................................
+
                        print "$b $a\n";
−
*...............................................................................
+
        '''.2)Les variables de type tableau'''
−
................................................................................
+
            *Les tableaux sont des listes de scalaires (nombres ou chaînes de caractères). Les variables de tableaux ont le même format que les variables
−
................................................................................
+
            scalaires à part qu'elles sont préfixées par le symbole @.
−
................................................................................
+
                        '''*Exemple'''
 +
                            @food  = ("apples", "pears", "eels");
 +
                            @music = ("whistle", "flute");
 +
 
 +
            On assigne une liste de trois éléments dans une variable de tableau @food et une liste de deux éléments à une variable de tableau @music.
 +
            *On peut accéder aux différents éléments de ce tableau à l'aide d'indices démarrant à 0.  
 +
            L'expression $food[2] retourne "eels".
 +
            On notera que le symbole @ a été changé en $ car "eels" est un scalaire.
 +
                       
 +
                            $food[3] = "orange";
 +
                            L'instruction permet d'assigner le scalaire "orange" à la position 3 du tableau @food;
 +
                            On pourrait également utiliser l'instruction push(@food, "eggs"); afin d'ajouter le scalaire "orange" à la fin du tableau.
 +
                            La fonction push retourne la longueur de la nouvelle liste.  
 +
                            L'indice du dernier élément de la liste peut se retrouver à l'aide de '''l'expression $#food.'''
 +
 
 +
            *On peut '''supprimer le dernier élément de la liste''', on peut utiliser '''la fonction pop'''.  
 +
            Cette fonction retourne l'élément supprimé.
 +
                            $element = pop(@food);    #  $element = "eels"
 +
 
 +
            *'''Affichage d'un tableau'''
 +
                          Les instructions suivantes permettent d'afficher le tableau @food :
 +
                          print "@food";
 +
 
 +
        '''.3)Les variables hachages(tableaux associatifs):'''
 +
              Les tables de hachage sont aussi appelées tableaux associatifs (comme en PHP), dictionnaires (comme en Python), ou simplement hachages (hash
 +
              en anglais) et constituent les structures de données les plus intéressantes de Perl.
 +
 
 +
                          '''# Exemple de table de hachage en Perl :'''
 +
                              # %tab est une table de hachage
 +
                                my %tab = (nom=>"DUPONT",prenom=>"Pierre",age=>23);
 +
 
 +
                            # $tab{nom} est l'élément "nom" de la table de hachage : il vaut "DUPONT" et c'est un scalaire
 +
                                print "NOM : $tab{nom}\n";
 +
                                print "Prénom : $tab{prenom}\n";
 +
                                print "Age : $tab{age}\n";
 +
  '''b)Les structures de contrôle'''
 +
        '''.1)Les conditions:'''
 +
              Le if marche comme en C comme le montre l'exemple suivant :
 +
              if ($a)
 +
              {
 +
        print "La chaine n'est pas vide\n";
 +
              }
 +
              else
 +
              {
 +
      print "La chaine est vide\n";
 +
              }
 +
              '''Les tests'''
 +
              Voici quelques tests qui retournent vrai ou faux :
 +
 
 +
                                  $a == $b                # indique si $a est numériquement égal à $b?
 +
                                  $a != $b                # indique si $a n'est pas égal numériquement à $b?
 +
                                  $a eq $b                # indique si la chaîne de caractères $a est égale à la chaîne de caractères $b?
 +
                                  $a ne $b                # indique si la chaîne de caractères $a n'est pas égale à la chaîne de caractères $b?
 +
           
 +
      *'''.2) Les boucles :'''
 +
            *'''foreach'''
 +
 
 +
              Pour parcourir chaque élément d'un tableau, Perl utilise une structure foreach qui s'utilise comme suit :
 +
 
 +
                                foreach $element (@food)        # Visite chaque élément de @food et le place dans $element
 +
                                {
 +
                                    print "$element\n";      # affiche $element
 +
                                }
 +
 
 +
 
 +
              *'''Les boucles avec for et while'''
 +
 
 +
              Le for et le while marchent comme en C comme montré dans les exemples ci-dessous :
 +
 
 +
                                for ($i = 0; $i < 10; $i++)
 +
                                {
 +
                                    print "$i\n";
 +
                                }
 +
 
 +
                                  $cnt = 0;
 +
                                  open(INFO,$file);
 +
                                  while($line = <INFO>){ #tant qu'on est pas arrivé à la fin du fichier
 +
                                  #  print "$line";
 +
                                      $cnt++;
 +
                                    }
 +
                                      print "Le fichier ci-dessus contient $cnt lignes\n";
 +
 
 +
 
 +
*'''.3) #Les fichiers'''
 +
                Voici un programme Perl qui affiche le contenu du fichier "/etc/passwd" en sortie standard.
 +
 
 +
                      #!/usr/local/bin/perl -w
 +
                      #
 +
 
 +
                        $file = "/etc/passwd";  # Nom du fichier
 +
                        open(INFO, $file);      # ouverture du fichier
 +
                        @lines = <INFO>;        # lecture du fichier dans un tableau
 +
                        close(INFO);            # fermeture du fichier
 +
                        print @lines;            # affichage du tableau
 +
 
 +
                        *La fonction open ouvre le fichier en lecture.
 +
                        *Le premier argument est le descripteur de fichier qui permet à Perl de se référer au fichier.  
 +
                        *Le deuxième argument indique le nom du fichier.  
 +
                        *La fonction close indique à Perl de fermer le descripteur de fichier. Dans le programme ci-dessus, l'information est lue dans un
 +
                          fichier.  
 +
                        *Le fichier a pour descripteur INFO, et pour lire dans celui-ci, Perl utilise des angles.  
 +
                          Ainsi, l'instruction    @lines = <INFO>;lit le fichier référencé par INFO et met son contenu dans le tableau @lines.  
 +
                          Notez que l'expression <INFO> lit le fichier entièrement en une seule fois.  
 +
                          Ceci est dû au fait que la lecture a pour contexte une variable de tableau.  
 +
                          Si @lines est remplacé par un scalaire $lines alors seule la prochaine ligne est lue.  
 +
                          Dans chacun des cas, chaque ligne est stockée complètement avec son caractère "newline" à la fin.
 +
 
 +
                          *Le fichier peut être ouvert en écriture également ou en ajout. Pour cela, il faut préfixer le nom du fichier avec > si écriture
 +
                          et un >> si ajout :
 +
 
 +
                          open(INFO, $file);      # ouvert en lecture
 +
                          open(INFO, ">$file");  # ouvert en écriture
 +
                          open(INFO, ">>$file");  # ouvert en ajout
 +
                          open(INFO, "<$file");  # ouvert en lecture
 +
 
 +
                          *Pour écrire dans un fichier que vous avez déjà ouvert en écriture, vous pouvez utiliser l'instruction print avec un argument
 +
                          supplémentaire.  
 +
                          *Pour écrire une chaîne de caractères dans un fichier dont le descripteur de fichier est INFO, utiliser
 +
 
 +
                            print INFO "This line goes to the file.\n";
 +
 
 +
                          *Pour ouvrir l'entrée standard et la sortie standard, vous pouvez utilisez respectivement :
 +
 
 +
                            open(INFO, '-');        # Ouverture de l'entrée standard
 +
                            open(INFO, '>-');      # Ouverture de la sortie standard
 +
 
 +
 
 +
===== '''Exemple de traitement d'un formulaire en PERL''' =====
 +
 
 +
*Perl est un langage de script puissant et efficace pour traiter les fichiers texte.
 +
Il est très utilisé comme langage de script pour effectuer des traitements CGI sur le serveur.
 +
La syntaxe du code est proche de celle du langage C, et peut être adressé directement :
 +
*dans un lien hypertexte URL du genre <A HREF=http://www.serveur/cgi-bin/pgr.pl>
 +
*ou dans une soumission de formulaire <FORM ACTION="http://www.serveur/cgi-bin/pgr.pl" METHOD=POST>
 +
Il est compilé, puis exécuté par le moteur Perl.
 +
=[[Fichier:Formulaire_perl.png]]
 +
*Les 2 méthodes de codage
 +
Rappels
 +
La méthode GET consiste à ajouter à l'URL la chaine d'encodage des infos du formulaire.
 +
Cet URL est passé dans la variable QUERY_STRING
 +
Pour la méthode POST, la même chaine est expédiée sur l'entrée standard du script de CGI connecté à la soumission du formulaire.
 +
Scripts de décodage
 +
méthode GET: script get.pl
 +
#recupere le contenu de la variable d'environnement
 +
$input = $ENV{"QUERY_STRING"};
 +
#dissocie la chaine de caracteres en une liste
 +
@liste= split(/&/,$input);
 +
#parcours de la liste
 +
foreach (@liste) {
 +
#dissocie la paire nom=valeur
 +
($name,$value)= split(/=/, $_);
 +
#decode les valeurs
 +
$name =~  s/%(..)/pack("c",hex($1))/ge;
 +
$value =~  s/%(..)/pack("c",hex($1))/ge;
 +
 
 +
#Traitement des données ....
 +
}
 +
méthode POST : script post.pl
 +
#recupere le contenu du buffer de l'entrée standard STDIN
 +
$in = <STDIN>;
 +
#supprime les deux CRLF insérés par le protocole HTTP
 +
chop($in);
 +
chop($in);
 +
#dissocie la chaine de caractère en une liste
 +
@liste = split(/&/,$in);
 +
#parcours de la liste
 +
foreach(@liste) {
 +
#dissocie la paire nom=valeur
 +
($nom,$valeur)= split(/=/, $_);
 +
#decode les valeurs
 +
$nom  =~  s/%(..)/pack("c",hex($1))/ge;
 +
$valeur =~  s/%(..)/pack("c",hex($1))/ge;
 +
 
 +
#Traitement des donnees ...
 +
}
 +
*'''Le formulaire'''
 +
[[Fichier:Fo1.png|Fo1.png]]
 +
 
 +
 
 +
*'''Le script Perl:'''
 +
[[Fichier:Fo2.png|Fo2.png]]
 
}}<!--************** Fin Fiche Didactique Explicitations ******************* -->
 
}}<!--************** Fin Fiche Didactique Explicitations ******************* -->
−
 
  
 
= {{Widget:Erreurs-confusions-Fiche}} =
 
= {{Widget:Erreurs-confusions-Fiche}} =
Ligne 153 : Ligne 413 :
 
<!-- Compléter les pointillés et Supprimer les lignes non utilisées------------>
 
<!-- Compléter les pointillés et Supprimer les lignes non utilisées------------>
 
<!-- ****************** Commercez les modifications *************************-->
 
<!-- ****************** Commercez les modifications *************************-->
−
 
+
* Confusion entre [[Langage de programmation interprété - Langage de programmation compilé]]
−
* Confusion entre [[....... - ........]]
+
* Confusion entre [['''else if'''  - '''elsif''']]
−
* Confusion entre [[....... - ........]]
+
* Confusion entre [['''eq''' -'''=='''  ]]
−
* Erreur fréquente: ....................
+
* Erreur fréquente:  
 +
    -Oublier que les indexes commencent par '''0''', et non '''1'''.
 +
    -Utiliser $_, $1, ou d’autres variables prédéfinie, puis modifier le code d’une manière qui les affecte indirectement.
 +
    -Oublier que les expressions régulières sont '''gloutonnes''', recherchant '''le plus long match''', et non le plus court.
  
 
}}<!-- ************** Fin Fiche Didactique Conceptions ********************* -->
 
}}<!-- ************** Fin Fiche Didactique Conceptions ********************* -->
Ligne 169 : Ligne 432 :
 
<!-- ************ Commercez les modifications *********************-->
 
<!-- ************ Commercez les modifications *********************-->
  
−
* [[..................]]?
+
* [[Pourquoi Perl ?Que puis-je faire avec Perl ?]]
−
* [[..................]]?
+
* [[Est-ce que Perl tient la comparaison avec d'autres langages comme Java, Python, REXX, Scheme ou Tcl ?]]
−
* [[..................]]?
+
* [[Quelle est la différence entre ``perl'' et ``Perl'' ?]]
 +
* [[Parle-t-on de programme Perl ou de script Perl ?]]
 +
* [[Comment rechercher un élément d'un hachage par sa valeur ?]]
 +
* [[Comment faire l'équivalent en Perl d'une structure en C, d'une classe/d'un hachage en C++ ou d'un tableau de hachages ou de tableaux ?]]
 +
* [[Comment obtenir l'unicité des clefs de deux hachages?]]
 +
* [[Comment modifier un fichier binaire directement?]]
 +
* [[Comment récupérer la date d'un fichier en perl ?]]
 +
 
 +
 
  
 
}}<!-- ******** Fin Fiche Didactique Questions ******************* -->
 
}}<!-- ******** Fin Fiche Didactique Questions ******************* -->
Ligne 177 : Ligne 448 :
 
= {{Widget:Liens-enseignement-Fiche}} =
 
= {{Widget:Liens-enseignement-Fiche}} =
  
−
== {{Widget:Idées ou Réflexions liées à son enseignement-Fiche}} ==
+
*'''Les bases de données''' : Il s'agit d'aborder le modèle relationnel, les systèmes de gestion de bases de données relationnelles et le langage SQL ;
−
 
+
et aussi les interfaces qui permettent la communication, la collecte des données et la commande des systèmes.
−
 
+
Perl en tire une partie de sa grande puissance pour l'analyse et le traitement des données textuelles.
−
<!-- ************** Début Fiche Didactique Idées-Enseignement ******************-->
+
*'''Manipuler les expressions régulières''': qui permettent de manipuler le texte de façon très puissante et très concise(L'acquisition de leur maîtrise peut s'avérer difficile au début, mais en vaut très largement la chandelle, aussi bien pour programmer en Perl que pour utiliser les outils classiques du shell ou les autres langages précédemment cités)en utilisant un langage simple d’usage, interprété, concis, libre et gratuit, multiplateforme et riche de bibliothèques adaptées (module CPAN).
−
{{Fiche Didactique Idées-Enseignement <!------------------------------------------>
+
*https://formation-perl.fr/
−
<!-- Espace de réflexions et d'idées pour l'Enseignement lié à cette thématique -->
+
*https://www.orsys.lu/formation-langage-perl.html
−
|Idées-Enseignement= <!-- ----------------------------------------------------  -->
+
*https://medium.com/@rhunold/comment-penser-comme-un-programmateur-le%C3%A7on-pour-pour-r%C3%A9soudre-des-probl%C3%A8mes-1f374a4b399f                                                  
−
<!-- Complétez les pointillés et Supprimez les lignes non utilisées          ----->
+
                                                  
−
<!-- ****************** Commercez les modifications **************************  -->
 
−
 
 
−
* ..................                                                  
 
−
:* .................
 
−
* ..................                                               
 
−
:* .................                                                  
 
  
 
}}<!-- ************************* Fin Idées-Enseignement ********************** -->
 
}}<!-- ************************* Fin Idées-Enseignement ********************** -->
−
 
  
 
== {{Widget:Aides et astuces-Fiche}} ==
 
== {{Widget:Aides et astuces-Fiche}} ==
Ligne 203 : Ligne 467 :
 
<!-- Complétez les pointillés et Supprimez les lignes non utilisées          ----->
 
<!-- Complétez les pointillés et Supprimez les lignes non utilisées          ----->
 
<!-- ****************** Commercez les modifications **************************  -->
 
<!-- ****************** Commercez les modifications **************************  -->
 +
*Le langage Perl a un typage faible par rapport à des langages comme le langage C, de plus l'allocation de mémoire est prise en charge par l'interpréteur. * *Perl possède une caractéristique intéressante: le dimensionnement automatique des expressions, c'est-à-dire que selon le type de variable une expression sera évaluée différemment.
 +
* Pour inclure des nouveaux chemins: '''avec l'option -I''', par exemple pour inclure de dossier courant :
 +
    '''#!/usr/bin/perl -I'''.
 +
 +
* Gérer les entrées/sorties:  Codage en utf8  avec l'option '''-C de perl''' : permet d'un coup et une bonne fois de tout basculer en utf8.
 +
    '''#!/usr/bin/perl -CSDA'''    : 
  
−
* ..................                                               
+
* Forcer la sortie : Pas d'instruction pour dire à Perl de vider un quelconque buffer, mais une directive pour lui indiquer que toutes les sorties doivent se faire sans attendre :
−
:* .................
+
    '''local $| = 1'''
−
* ..................                                               
+
*Sa gratuité et sa présence sur de nombreux systèmes d'exploitation en ont fait un langage de script approprié à la création de passerelles CGI.
−
:* .................                                               
 
  
 
}}<!-- ************************* Fin Astuces-Enseignement ********************** -->
 
}}<!-- ************************* Fin Astuces-Enseignement ********************** -->
Ligne 219 : Ligne 488 :
 
<!-- ****************** Commercez les modifications ************-->
 
<!-- ****************** Commercez les modifications ************-->
  
−
:* ..................
+
:* https://perl.developpez.com/
−
:* ..................
+
:*https://www.cours-gratuit.com/cours-perl/
−
:* ..................
+
:* https://https://formation-perl.fr/
  
 
}}<!-- ************ Fin Liens Education ********************** -->
 
}}<!-- ************ Fin Liens Education ********************** -->
Ligne 235 : Ligne 504 :
 
<!-- ****************** Commercez les modifications *********************-->
 
<!-- ****************** Commercez les modifications *********************-->
  
−
* ..................                                                  
+
* https://cmapscloud.ihmc.us/viewer/cmap/1WVFZMTRP-12STQZF-WHSZQ9                                                  
−
* ..................
+
* https://didaquest.org/wiki/Utilisateur:Yosr
−
* ..................                                               
+
                                               
−
* ..................                                               
 
  
 
}}<!-- ************* Fin Fiche Didactique Bibliographie *************** -->
 
}}<!-- ************* Fin Fiche Didactique Bibliographie *************** -->
  
 
{{Widget:Fiche-Conceptuelle-Bas}}
 
{{Widget:Fiche-Conceptuelle-Bas}}

Version actuelle datée du 23 mai 2021 à 22:21


Autres Fiches Conceptuelles
Posez une Question


(+)

Target Icon.pngVotre Publicité sur le Réseau Target Icon.png

Puce-didaquest.png Traduction

Emblem-important-blue.svg

Perl (Français) / Perl (Anglais) / بيرل لغة البرمجة (Arabe)

(+)


More-didaquest.png Traductions


Puce-didaquest.png Définition

Domaine, Discipline, Thématique


More-didaquest.png Justification


Définition écrite

Emblem-important-blue.svg


Blue-circle-target.png Définition

  • Perl (Practical Extraction and Report Language) ou (langage pratique d'extraction et de génération de rapports):
  • Perl est un langage de programmation créé par Larry Wall en 1987 et reprenant des fonctionnalités du langage C et des langages de scripts sed, awk et shell (sh).
  • C'est un langage interprété, polyvalent, et particulièrement adapté au traitement et à la manipulation de fichiers texte, notamment du fait de l'intégration des expressions régulières dans la syntaxe même du langage.


(+)



Blue-circle-target.png Information sur Perl 

     * Date de première version: 18 décembre 1987 .

     * Paradigmes: Objet, impératif, fonctionnel, réflexif, procédural, événementiel, générique

     * Auteur: Larry Wall

     * Développeurs: The Perl Foundation

     * Licence: Licence artistique 1.0[4][5] ou licence publique générale GNU[6]
                   
     * Dernière version: 5.32.1 (23 janvier 2021)

     * Système d'exploitation: Multiplateforme

     * Typage: Faible, dynamique

     * Influencé par: C, BASIC, Eiffel, shell, sed, awk

     * Écrit en: C

     * Extensions de noms de fichiers: .plx, .pl, .pm, .xs, .t, .pod

     * Site internet: www.perl.org


Blue-circle-target.png Environnement Perl

  • Pour travailler avec Perl, vous allez avoir besoin de deux programmes : un interpréteur Perl et un éditeur de texte.
  • Pour installer l’interpréteur Perl sur votre machine, rendez vous sur http://strawberryperl.com/, puis cliquez sur la version qui correspond à votre ordinateur.
  • Maintenant, pour programmer il faut utiliser un éditeur de texte pour écrire le fichier source d'un programme écrit en Perl.
 Il en existe plusieurs editeurs comme :*Gedit.jpeg ,  *Notepad++.jpegNotepad++......
  • Maintenant que vous avez tous les outils nécessaires pour coder en Perl, nous allons enfin réaliser notre premier programme !


Blue-circle-target.png votre premier programme 

 Exemple

     use strict;
     use warnings;
     print "Hello, world!";
     <>;
    
     La première ligne est un commentaire obligatoire qui indique l'endroit où les trouve l'interpréteur Perl.

     La deuxième ligne est une commande, qui imprimera Hello, world! à l'écran une fois exécuté le programme


Blue-circle-target.png comment exécuter un programme perl 

Le mettre dans un fichier, par exemple helloworld.pl.

Rendre le fichier exécutable (LINUX: chmod u+x helloworld.pl).

Taper le nom du fichier helloworld.pl

    Exec.png

More-didaquest.png Perl - Historique (+)


Définition graphique

Emblem-important-blue.svg
  • PERL.jpeg
  • PERLLOGO3.jpeg
  • Cpan.jpeg

  • cadre‎


Emblem-important-blue.svg


Emblem-important-blue.svg

{{{AutresMedias}}}


Puce-didaquest.png Concepts ou notions associés


More-didaquest.png Perl - Glossaire / (+)



Puce-didaquest.png Exemples, applications, utilisations


Blue-circle-target.png Syntaxe du langage

  • Perl est dérivé du langage C et a conservé un grand nombre d'éléments de sa syntaxe (syntaxe de la boucle for, bloc délimité par des accolades, point-virgule en fin de ligne, indice des tableaux entre crochet, etc...).
   a) Les types de données
        Perl est un langage faiblement typé. 
        Il existe principalement trois structures de données : les scalaires, les tableaux et les tables de hachage. 
        *Type.png

        Chaque structure de données est liée à un caractère spécial.
         .1)Les variables scalaires
               Les variables scalaires peuvent contenir soit des nombres soit des chaînes de caractères. 
 
               *TYPES.png
                       *Exemple
                        $priority = 9;
                        $priority = "high";
                        $priority = 'high';
              Les noms des variables  ne commencent jamais par un nombre. Elles ont pour préfixe le caractère $. La variable $_ est spéciale.
              *Assignation
              Les opérateurs arithmétiques fonctionnent comme en C.
                    *Exemple
                        $a = 1 + 2;
                        $a++;
                *Les opérateurs sur les Strings sont les suivants:
                    *Exemple
                        $a = $b . $c;   # Concaténation de $b et $c
                        $a = $b x $c;   # $b est répété $c fois
                        $a .= $b;       # On ajoute (append) $b à $a (String)
              *Affichage des variables
                    *Exemple
                   Le code suivant affiche "pommes et poires" :
                        $a = "pommes";
                        $b = "poires";
                        print "$a et $b\n";

                   Le code suivant affiche "4 pommes" :
                        $a = "pommes";
                        $b = 4;
                        print "$b $a\n";
        .2)Les variables de type tableau
           *Les tableaux sont des listes de scalaires (nombres ou chaînes de caractères). Les variables de tableaux ont le même format que les variables 
            scalaires à part qu'elles sont préfixées par le symbole @.
                       *Exemple
                           @food  = ("apples", "pears", "eels");
                           @music = ("whistle", "flute");

           On assigne une liste de trois éléments dans une variable de tableau @food et une liste de deux éléments à une variable de tableau @music.
           *On peut accéder aux différents éléments de ce tableau à l'aide d'indices démarrant à 0. 
           L'expression $food[2] retourne "eels".
           On notera que le symbole @ a été changé en $ car "eels" est un scalaire.
                        
                           $food[3] = "orange";
                           L'instruction permet d'assigner le scalaire "orange" à la position 3 du tableau @food; 
                           On pourrait également utiliser l'instruction push(@food, "eggs"); afin d'ajouter le scalaire "orange" à la fin du tableau.
                           La fonction push retourne la longueur de la nouvelle liste. 
                           L'indice du dernier élément de la liste peut se retrouver à l'aide de l'expression $#food.

           *On peut supprimer le dernier élément de la liste, on peut utiliser la fonction pop. 
            Cette fonction retourne l'élément supprimé.
                           $element = pop(@food);     #  $element = "eels"

           *Affichage d'un tableau
                          Les instructions suivantes permettent d'afficher le tableau @food :
                          print "@food";

        .3)Les variables hachages(tableaux associatifs):
             Les tables de hachage sont aussi appelées tableaux associatifs (comme en PHP), dictionnaires (comme en Python), ou simplement hachages (hash 
             en anglais) et constituent les structures de données les plus intéressantes de Perl.

                          # Exemple de table de hachage en Perl :
                             # %tab est une table de hachage
                               my %tab = (nom=>"DUPONT",prenom=>"Pierre",age=>23);

                            # $tab{nom} est l'élément "nom" de la table de hachage : il vaut "DUPONT" et c'est un scalaire
                               print "NOM : $tab{nom}\n";
                               print "Prénom : $tab{prenom}\n";
                               print "Age : $tab{age}\n";
 b)Les structures de contrôle
       .1)Les conditions:
             Le if marche comme en C comme le montre l'exemple suivant :
             if ($a)
             {

print "La chaine n'est pas vide\n"; 

             }
             else
             {

print "La chaine est vide\n"; 

             }
              Les tests
             Voici quelques tests qui retournent vrai ou faux :

                                 $a == $b                # indique si $a est numériquement égal à $b?
                                 $a != $b                # indique si $a n'est pas égal numériquement à $b?
                                 $a eq $b                # indique si la chaîne de caractères $a est égale à la chaîne de caractères $b?
                                 $a ne $b                # indique si la chaîne de caractères $a n'est pas égale à la chaîne de caractères $b?
           
     *.2) Les boucles :
            *foreach

             Pour parcourir chaque élément d'un tableau, Perl utilise une structure foreach qui s'utilise comme suit :

                                foreach $element (@food)         # Visite chaque élément de @food et le place dans $element
                                {
                                   print "$element\n";      # affiche $element
                                }



             *Les boucles avec for et while

             Le for et le while marchent comme en C comme montré dans les exemples ci-dessous :

                                for ($i = 0; $i < 10; $i++)
                                {
                                   print "$i\n";
                                } 

                                  $cnt = 0;
                                  open(INFO,$file);
                                  while($line = <INFO>){ #tant qu'on est pas arrivé à la fin du fichier
                                  #   print "$line";
                                      $cnt++;
                                   }
                                     print "Le fichier ci-dessus contient $cnt lignes\n";


  • .3) #Les fichiers
               Voici un programme Perl qui affiche le contenu du fichier "/etc/passwd" en sortie standard.

                      #!/usr/local/bin/perl -w
                      #

                        $file = "/etc/passwd";   # Nom du fichier
                        open(INFO, $file);       # ouverture du fichier
                        @lines = <INFO>;         # lecture du fichier dans un tableau
                        close(INFO);             # fermeture du fichier
                        print @lines;            # affichage du tableau

                        *La fonction open ouvre le fichier en lecture.
                        *Le premier argument est le descripteur de fichier qui permet à Perl de se référer au fichier. 
                        *Le deuxième argument indique le nom du fichier. 
                        *La fonction close indique à Perl de fermer le descripteur de fichier. Dans le programme ci-dessus, l'information est lue dans un 
                         fichier. 
                        *Le fichier a pour descripteur INFO, et pour lire dans celui-ci, Perl utilise des angles. 
                         Ainsi, l'instruction     @lines = <INFO>;lit le fichier référencé par INFO et met son contenu dans le tableau @lines. 
                         Notez que l'expression <INFO> lit le fichier entièrement en une seule fois. 
                         Ceci est dû au fait que la lecture a pour contexte une variable de tableau. 
                         Si @lines est remplacé par un scalaire $lines alors seule la prochaine ligne est lue. 
                         Dans chacun des cas, chaque ligne est stockée complètement avec son caractère "newline" à la fin.

                         *Le fichier peut être ouvert en écriture également ou en ajout. Pour cela, il faut préfixer le nom du fichier avec > si écriture 
                          et un >> si ajout :

                         open(INFO, $file);      # ouvert en lecture
                         open(INFO, ">$file");   # ouvert en écriture
                         open(INFO, ">>$file");  # ouvert en ajout
                         open(INFO, "<$file");   # ouvert en lecture

                         *Pour écrire dans un fichier que vous avez déjà ouvert en écriture, vous pouvez utiliser l'instruction print avec un argument 
                          supplémentaire. 
                         *Pour écrire une chaîne de caractères dans un fichier dont le descripteur de fichier est INFO, utiliser

                           print INFO "This line goes to the file.\n";

                          *Pour ouvrir l'entrée standard et la sortie standard, vous pouvez utilisez respectivement :

                            open(INFO, '-');        # Ouverture de l'entrée standard
                            open(INFO, '>-');       # Ouverture de la sortie standard


Exemple de traitement d'un formulaire en PERL
  • Perl est un langage de script puissant et efficace pour traiter les fichiers texte.

Il est très utilisé comme langage de script pour effectuer des traitements CGI sur le serveur. La syntaxe du code est proche de celle du langage C, et peut être adressé directement :

Il est compilé, puis exécuté par le moteur Perl. =Formulaire perl.png

  • Les 2 méthodes de codage

Rappels La méthode GET consiste à ajouter à l'URL la chaine d'encodage des infos du formulaire. Cet URL est passé dans la variable QUERY_STRING Pour la méthode POST, la même chaine est expédiée sur l'entrée standard du script de CGI connecté à la soumission du formulaire. Scripts de décodage méthode GET: script get.pl

  1. recupere le contenu de la variable d'environnement

$input = $ENV{"QUERY_STRING"};

  1. dissocie la chaine de caracteres en une liste

@liste= split(/&/,$input);

  1. parcours de la liste

foreach (@liste) { 

#dissocie la paire nom=valeur

($name,$value)= split(/=/, $_); 

#decode les valeurs
$name =~   s/%(..)/pack("c",hex($1))/ge;
$value =~  s/%(..)/pack("c",hex($1))/ge;

#Traitement des données ....

} méthode POST : script post.pl 

#recupere le contenu du buffer de l'entrée standard STDIN

$in = <STDIN>; 

#supprime les deux CRLF insérés par le protocole HTTP

chop($in); chop($in); 

#dissocie la chaine de caractère en une liste

@liste = split(/&/,$in); 

#parcours de la liste

foreach(@liste) { 

#dissocie la paire nom=valeur
($nom,$valeur)= split(/=/, $_);
#decode les valeurs
$nom  =~  s/%(..)/pack("c",hex($1))/ge;
$valeur =~  s/%(..)/pack("c",hex($1))/ge;

#Traitement des donnees ...

}

  • Le formulaire

Fo1.png


  • Le script Perl:

Fo2.png


(+)


Puce-didaquest.png Erreurs ou confusions éventuelles

Emblem-important-blue.svg
   -Oublier que les indexes commencent par 0, et non 1.
   -Utiliser $_, $1, ou d’autres variables prédéfinie, puis modifier le code d’une manière qui les affecte indirectement.
   -Oublier que les expressions régulières sont gloutonnes, recherchant le plus long match, et non le plus court.

(+)



Puce-didaquest.png Questions possibles



Puce-didaquest.png Liaisons enseignements et programmes

  • Les bases de données : Il s'agit d'aborder le modèle relationnel, les systèmes de gestion de bases de données relationnelles et le langage SQL ;

et aussi les interfaces qui permettent la communication, la collecte des données et la commande des systèmes. Perl en tire une partie de sa grande puissance pour l'analyse et le traitement des données textuelles.


}}

Aides et astuces

Emblem-important-blue.svg
  • Le langage Perl a un typage faible par rapport à des langages comme le langage C, de plus l'allocation de mémoire est prise en charge par l'interpréteur. * *Perl possède une caractéristique intéressante: le dimensionnement automatique des expressions, c'est-à-dire que selon le type de variable une expression sera évaluée différemment.
  • Pour inclure des nouveaux chemins: avec l'option -I, par exemple pour inclure de dossier courant :
   #!/usr/bin/perl -I.
  • Gérer les entrées/sorties: Codage en utf8 avec l'option -C de perl : permet d'un coup et une bonne fois de tout basculer en utf8.
   #!/usr/bin/perl -CSDA    :
  • Forcer la sortie : Pas d'instruction pour dire à Perl de vider un quelconque buffer, mais une directive pour lui indiquer que toutes les sorties doivent se faire sans attendre :
   local $



Education: Autres liens, sites ou portails




Puce-didaquest.png Bibliographie

Emblem-important-blue.svg

Pour citer cette page: ([1]) 

ABROUGUI, M & al, 2021. Perl. In Didaquest [en ligne]. <http:www.didaquest.org/wiki/Perl>, consulté le 24, novembre, 2024


Récupérée de « https://didaquest.org/w/index.php?title=Perl&oldid=74178 »