Voir la source de Intro à Perl

<blockquote style="margin-left: 15px"><blockquote style="margin-left: 15px">
= AVERTISSEMENT  =

<u>'''BUT'''</u>: Ce document est destiné aux personnes n'ayant aucune connaissance du langage Perl, voire même aucune connaissance en programmation. 

<u>'''ACQUIS À AVOIR'''</u>: Savoir créer un fichier vierge avec un éditeur de texte simple (exclure word, ooo...) et savoir lancer Perl depuis une console...

'''<u>MISE EN PAGE</u>''': De plus, la mise en page est assez sommaire parce que ce texte a été importé sur ce site à partir d'un document HTML4+CSS2 et qu'il ne m'est pas possible de prendre d'avantage de temps pour améliorer sa présentation. 

Merci pour votre compréhention. 

<br> 

<br> 

<br> 

<br> 
<blockquote style="margin-left: 15px"><br> <span style="font-size: xx-large">'''Introduction à Perl&nbsp;'''</span></blockquote>

= Bien commencer!  =

Pour commencer, il faut créer un fichier que l'on nommera&nbsp;'''"intro_perl.pl".'''&nbsp;Toutes les lignes de programmation Perl qui suivent pourront être contenues dans ce fichier. 

&nbsp; 

= Afficher des informations avec Perl.  =

<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>&nbsp;(" blabla j'afficheeee "); 

avec retour à la ligne&nbsp;: 

<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>&nbsp;(" là, j'affiche avec un saut de ligne grâce à l'&nbsp;<font size="4">'''Anté Slash'''</font>&nbsp;collé à la lette 'n''''&nbsp;'''"); 

= Mémoriser des informations dans Perl  =

Une variable se reconnaît grâce au signe $ (dollar) à gauche d'un mot. Ce mot doit toujours commencer par une lettre et peut terminer par des chiffres ou des lettres... Comme indique le sujet de ce chapitre, elles servent à mémoriser des informations dans un programme Perl. Toutes ces informations sont appelées -&gt; SCALAIRE&nbsp;; je crois que ce mot à une signification mathématique...&nbsp;:) 

Pour demander à Perl d'utiliser une variable, de la déclarer, on utilise la fonction "<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>"&nbsp;: 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($ma_memoire) = "les informations à mémoriser";</code> 

&nbsp; ou 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($texte) = "Marin";<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($chiffre) = "9";</code> 

Les données contenues dans les variables seront interprétées automatiquement par Perl. Par exemple si nos variables se trouvent dans un&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>, Perl affichera leur contenu&nbsp;: 

<span dir="ltr"><code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>(" Contenu de texte&nbsp;: $texte, et de chiffre&nbsp;: $chiffre \n");</code></span> 

<br>''Remarque&nbsp;: Vous n'êtes pas obligé d'utiliser "<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>" pour déclarer vos variables, vous pouvez le faire sans! Mais, sans rentrer dans les détails, il est fortement conseillé d'utiliser "<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>" à chaque déclaration. Quand vous aurez à débuguer un programme Perl dans une page ASP, vous apprécierez sans aucun doute les bienfaits de son utilisation.'' 

&nbsp; 

&nbsp; 

= Comparer, conditions dans Perl  =

Tout langage de programmation possède un système de condition permettant aux ordinateurs de réagir selon des critères définis par le programmeur... Elles sont la base de l'informatique, sans elles nos ordinateurs ne feraient qu'afficher des informations ... 

Exemple de comparaison de deux variables (Scalaire&nbsp;:) 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">if&nbsp;</u>($texte eq $chiffre)<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Le contenu de la variable $texte est égal au contenu de la variable $chiffre\n");<br>}<br>else<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("\$texte et \$chiffre ne sont pas égal!\n");<br>}</code> 

&nbsp; 

<br>Remarque&nbsp;: Ici on utilise l'Anté Slash pour dire à Perl de ne pas prendre $texte pour une variable mais seulement d'annuler l'effet du $ dans le print...&nbsp; 

'''Autres opérateurs de comparaison acceptés dans le "if( ... )"&nbsp;:''' 
<div style="font-family: arial, sans-serif; color: rgb(83,83,83); font-size: medium" align="center"><center>
{| border="0" width="945"
|-
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="38" | <span style="font-size: small">'''"&lt;"'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="124" | <span style="font-size: small">'''numériquement'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="314" | <span style="font-size: small">'''plus petit que son opérande droit.'''</span>
|-
| valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire&nbsp;'''</span> 
| valign="top" width="38" | <span style="font-size: small">'''"&gt;"'''</span> 
| valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est&nbsp;'''</span> 
| valign="top" width="124" | <span style="font-size: small">'''numériquement&nbsp;'''</span> 
| valign="top" width="314" | <span style="font-size: small">'''plus grand que son opérande droit.'''</span>
|-
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire&nbsp;'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="38" | <span style="font-size: small">'''"&lt;="'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est&nbsp;'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="124" | <span style="font-size: small">'''numériquement&nbsp;'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="314" | <span style="font-size: small">'''plus petit ou égal que son opérande droit.'''</span>
|-
| valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire&nbsp;'''</span> 
| valign="top" width="38" | <span style="font-size: small">'''"&gt;="'''</span> 
| valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est&nbsp;'''</span> 
| valign="top" width="124" | <span style="font-size: small">'''numériquement&nbsp;'''</span> 
| valign="top" width="314" | <span style="font-size: small">'''plus grand ou égal que son opérande droit.'''</span>
|-
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire&nbsp;'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="38" | <span style="font-size: small">'''"lt"'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="124" | <span style="font-size: small">'''alphabétiquement&nbsp;'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="314" | <span style="font-size: small">'''plus petit que son opérande droit.'''</span>
|-
| valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire&nbsp;'''</span> 
| valign="top" width="38" | <span style="font-size: small">'''"gt"'''</span> 
| valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est'''</span> 
| valign="top" width="124" | <span style="font-size: small">'''alphabétiquement&nbsp;'''</span> 
| valign="top" width="314" | <span style="font-size: small">'''plus grand que son opérande droit.'''</span>
|-
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire&nbsp;'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="38" | <span style="font-size: small">'''"le"'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="124" | <span style="font-size: small">'''alphabétiquement&nbsp;'''</span> 
| style="background-color: rgb(192,192,192); font-family: 'times new roman'" class="bande_gris" bgcolor="#d1d1d1" valign="top" width="314" | <span style="font-size: small">'''plus petit ou égal que son opérande droit.'''</span>
|-
| valign="top" width="146" | <span style="font-size: small">'''L'opérateur binaire&nbsp;'''</span> 
| valign="top" width="38" | <span style="font-size: small">'''"ge"'''</span> 
| valign="top" width="291" | <span style="font-size: small">'''renvoie vrai si son opérande gauche est'''</span> 
| valign="top" width="124" | <span style="font-size: small">'''alphabétiquement&nbsp;'''</span> 
| valign="top" width="314" | <span style="font-size: small">'''plus grand ou égal que son opérande droit.'''</span>
|}
</center></div> 
Notez cette liste, car d'autres fonctions de Perl les utilisent! 

&nbsp; 

= Utiliser les informations mémorisées  =

== Afficher  ==

<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>&nbsp;permet de traiter les informations fixes mais aussi et surtout&nbsp;'''"les variables"'''. Les informations fixes sont en général du texte qui ne change pas quel que soit le fonctionnement du programme ou bien de l'utilisation qu'en fait l'utilisateur. Seul ce qui est&nbsp;'''variable'''&nbsp;pourra changer lors de l'exécution d'un programme&nbsp;: 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Ton prénom est&nbsp;:&nbsp;'''$texte&nbsp;'''\n");&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # N° 1</code><br>ou<br><code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Ton prénom est&nbsp;:&nbsp;'''%s'''&nbsp;\n",&nbsp; $texte); # N° 2</code> 

*Si vous hésitez sur la forme à employer, préférez la N° 2...

Donc si $texte avait contenu le prénom "Cédric" plutôt que Marin, la fonction printf aurait bien sur imprimé "Cédric" mais n'aurait pas changé le reste qui se trouve dans le printf''"Ton prénom est&nbsp;:"...'' 

&nbsp; 

Autre exemple&nbsp;: 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Ton chiffre/nombre est&nbsp;:&nbsp;'''<u>%d&nbsp;</u>'''\n",&nbsp; $chiffre);</code> 

&nbsp; 

== Calculer  ==

<code>$chiffre = $chiffre * 100;<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Le nombre multiplié par 100 est égal à&nbsp;:&nbsp;%s \n",&nbsp; $chiffre);</code> 

&nbsp; 

== Ajouter  ==

Lorsque votre programme reçoit des données, il peut-être nécessaire (souvent&nbsp;:) d'y ajouter d'autres informations ou simplement les arranger dans un ordre précis en fonction de vos critères. 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($phrase) = ""; # ne pas oublier d'initialiser les variables! (si ce n'est pas déjà fait!)</code> 

<code>$phrase = $texte . " a " . $chiffre . " ans.";</code> 

ou 

$phrase =&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">sprintf</u>("'''%s&nbsp;&nbsp;'''a&nbsp;&nbsp;'''%d'''&nbsp;ans!",&nbsp; $texte,&nbsp; $chiffre); 

<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">print</u>&nbsp;("$phrase"); 

Donne&nbsp;: Marin a 900 ans! 

&nbsp; 

== Couper  ==

De même qu'ajouter des informations, on peut avoir besoin d'en extraire. Ici on veut simplement enlever le "et" mais pas à n'importe quel prix! Il faut aussi demander à Perl de vérifier que tout se passe bien! 

&nbsp; 

<code>$phrase = "Perl et PHP"; # ici on n'utilise pas, volontairement, "<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>", car $phrase&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # est déjà déclaré/connu de Perl.<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($mot1) = ""; # On demande à Perl de déclarer $mot1, mais de ne rien y mettre...<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($mot2) = ""; # ...</code> 

#On coupe en deux par rapport à un critère qui est " et "&nbsp;; ça aurait pu être un espace!

<code>($mot1, $mot2) =&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">split</u>&nbsp;(/ et /, $phrase, 2);</code> 

#On demande à Perl de s'assurer que les réponses de&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">split</u>&nbsp;soient correctes.

<code>#&nbsp;''Ce n'est pas du tout obligatoire'', mais ça permet d'éviter des surprises...</code> 

<code>$mot1 = ""&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">if&nbsp;</u>(&nbsp;!<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">defined</u>&nbsp;($mot1) ); # on demande à Perl de placer du vide dans $mot1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # si celui-ci n'existe plus.<br>$mot2 = ""&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">if&nbsp;</u>(&nbsp;!<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">defined</u>&nbsp;($mot2) );</code> 

#On affiche le résultat.<br><code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Mot1 =&nbsp;%s, Mot2&nbsp;:&nbsp;%s\n", $mot1, $mot2);</code>

== Remplacer  ==

&nbsp; 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($mot) = "Hackers";<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($crackers) = "les Hackers sont des pirates";</code> 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("%s&nbsp;?\n", $crackers);</code> 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($nombre_trouve) = ($crackers =~ s/${mot}/Crackers/g);</code> 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Non!,&nbsp;%s&nbsp;!\n", $crackers);<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>(" Le mot&nbsp;%s a été trouvé&nbsp;%s fois\n", $mot, $nombre_trouve);</code> 

&nbsp; 

&nbsp; 

= Les Tableaux  =

''(Pour plus de détails voir perldata)'' 

== Tableau de Scalaires  ==

&nbsp; 

Perl comme tout langage propose de mémoriser des données sous forme de tableau. 

Par exemple si on veut mémoriser des informations personnelles (ce n'est qu'un exemple&nbsp;:) comme le&nbsp;''nom, prénom, la date de naissance, son numéro de carte bleue''&nbsp;...&nbsp;:) Il faudra déclarer un tableau comme suit&nbsp;: 

&nbsp; 

{| style="font-family: arial, sans-serif" border="0" width="707"
|-
| width="339" | 
<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;( @tableau ) = (&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Cougnenc",<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "René",<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "1 Janvier 2002",<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "0391 4389 6752 9172"</code> 

<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; );</code> 

<code>&nbsp;</code> 

| width="354" | <div align="center"><center>
{| border="1" cellspacing="3" width="100"
|-
| @tableau
|-
| nom
|-
| prenom
|-
| nee
|-
| carte_bleu
|}
</center></div>
|}

S'utilise&nbsp;: 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("<br>Prénom&nbsp;:&nbsp;%s<br>Nom&nbsp;:&nbsp;%s<br>Né le&nbsp;:&nbsp;%s<br>CB N°&nbsp;:&nbsp;%s<br>", $tableau[0], $tableau[1], $tableau[2], $tableau[3]);</code> 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>(" Vous avez&nbsp;:&nbsp;%d éléments dans votre tableau!", $#tableau);</code> 

&nbsp; 

&nbsp; 

=== Tableau plus complexe!  ===

Se dit aussi&nbsp;:&nbsp;<font size="2" face="times new roman">tableau associatif de&nbsp;<span style="text-transform: uppercase">SCALAIRES</span>.</font> 
<div style="font-family: arial, sans-serif; color: rgb(83,83,83); font-size: medium" align="center"><center>
{| style="border-bottom-style: solid; border-right-style: solid; border-top-style: solid; border-left-style: solid" border="0" width="669"
|-
| valign="top" width="192" | <font size="3">#</font> 
| valign="top" width="14" | 
| valign="top" width="11" | 
| valign="top" width="913" colspan="5" | 
''<font size="3">Numéros de champ</font>'' 

|-
| valign="top" width="192" | <font size="3"># Nom de la table</font> 
| valign="top" width="14" | 
| valign="top" width="11" | 
| valign="top" width="118" align="middle" | <font size="3">0</font> 
| valign="top" width="112" align="middle" | <font size="3">1</font> 
| valign="top" width="303" align="middle" | <font size="3">2</font> 
| valign="top" width="229" align="middle" | <font size="3">3</font> 
| valign="top" width="151" align="middle" | 
|-
| valign="top" width="192" | <code><font size="3"><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;(@table) =&nbsp;</font></code> 
| valign="top" width="14" | <code><font size="3">(</font></code> 
| valign="top" width="11" | 
| valign="top" width="118" | 
| valign="top" width="112" | 
| valign="top" width="303" | 
| valign="top" width="229" | 
| valign="top" width="151" | 
|-
| valign="top" width="192" | 
| valign="top" width="14" | 
| valign="top" width="11" | <code><font color="#ff0000" size="3">[</font></code> 
| valign="top" width="118" | <code><font size="3"><font color="#0000ff">"</font>René<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="112" | <code><font size="3"><font color="#0000ff">"</font>Cougnenc<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="303" | <code><font size="3"><font color="#0000ff">"</font>1 Janvier 2002<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="229" | <code><font size="3"><font color="#0000ff">"</font>cb1<font color="#0000ff">"</font></font></code> 
| valign="top" width="151" | <code><font color="#ff0000" size="3">], # 0</font></code>
|-
| valign="top" width="192" | 
| valign="top" width="14" | 
| valign="top" width="11" | <code><font color="#ff0000" size="3">[</font></code> 
| valign="top" width="118" | <code><font size="3"><font color="#0000ff">"</font>Frédéric<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="112" | <code><font size="3"><font color="#0000ff">"</font>René<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="303" | <code><font size="3"><font color="#0000ff">"</font>31 Décembre 2030<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="229" | <code><font size="3"><font color="#0000ff">"</font>reste à donner<font color="#0000ff">"</font></font></code> 
| valign="top" width="151" | <code><font color="#ff0000" size="3">], # 1</font></code>
|-
| valign="top" width="192" | 
| valign="top" width="14" | 
| valign="top" width="11" | <code><font color="#ff0000" size="3">[</font></code> 
| valign="top" width="118" | <code><font size="3"><font color="#0000ff">"</font>Javier<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="112" | <code><font size="3"><font color="#0000ff">"</font>Garmendia<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="303" | <code><font size="3"><font color="#0000ff">"</font>2 Janvier 2002<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="229" | <code><font size="3"><font color="#0000ff">"</font>déjà donné<font color="#0000ff">"</font></font></code> 
| valign="top" width="151" | <code><font color="#ff0000" size="3">], # 2</font></code>
|-
| valign="top" width="192" | 
| valign="top" width="14" | 
| valign="top" width="11" | <code><font color="#ff0000" size="3">[</font></code> 
| valign="top" width="118" | <code><font size="3"><font color="#0000ff">"</font>...<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="112" | <code><font size="3"><font color="#0000ff">"</font>...<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="303" | <code><font size="3"><font color="#0000ff">"</font>...<font color="#0000ff">"</font>,</font></code> 
| valign="top" width="229" | <code><font size="3"><font color="#0000ff">"</font>...<font color="#0000ff">"</font></font></code> 
| valign="top" width="151" | <code><font color="#ff0000" size="3">]&nbsp; # 3</font></code>
|-
| valign="top" width="192" | 
| valign="top" width="14" | <code><font size="3">);</font></code> 
| valign="top" width="11" | 
| valign="top" width="118" | 
| valign="top" width="112" | 
| valign="top" width="303" | 
| valign="top" width="229" | 
| valign="top" width="151" | 
|-
| valign="top" width="192" | 
| valign="top" width="14" | 
| valign="top" width="11" | 
| valign="top" width="118" | 
| valign="top" width="112" | 
| valign="top" width="303" | 
| valign="top" width="229" | 
| valign="top" width="151" | 
|-
| valign="top" width="192" | 
| valign="top" width="14" | 
| valign="top" width="11" | 
| valign="top" width="118" | 
| valign="top" width="112" | 
| valign="top" width="303" | 
| valign="top" width="229" | 
| valign="top" width="151" | 
|}
</center></div> 
S'utilise&nbsp;: 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("<br>Prénom&nbsp;:&nbsp;%s<br>Nom&nbsp;:&nbsp;%s<br>Née le&nbsp;:&nbsp;%s<br>CB N°&nbsp;:&nbsp;%s<br>", $table[1]-&gt;[0], $table[1]-&gt;[1], $table[1]-&gt;[2], $table[1]-&gt;[3]);</code> 

&nbsp; 

== Tableau de HASHage  ==

Se dit aussi&nbsp;:&nbsp;<font size="2" face="times new roman">les tableaux associatifs de scalaires (voir perldata ch. 4.1.1)</font> 

&nbsp; 

La première méthode la plus évidente est sûrment celle-ci&nbsp;: 

&nbsp; 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;(%hash)&nbsp;&nbsp;&nbsp; = ""; # Je déclare mon Hashage! et je mets rien dedans!</code> 

<code>$hash{"clefs"} = "valeur";<br>$hash{"prenom"} = "Guy";<br>$hash{"nom"} = "Decarpentrie";</code> 

S'utilise&nbsp;: 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Mr&nbsp;%s n'aime pas Alexia! (moi aussi&nbsp;:) Pourtant elle affirme qu'elle connaît bien&nbsp;%s!\n", $hash{"nom"}, $hash{"prenom"} );&nbsp;<br># (no comment&nbsp;:)</code> 

&nbsp; 

Une autre forme pour déclarer un HASHage 
<div style="font-family: arial, sans-serif; color: rgb(83,83,83); font-size: medium" align="center"><center>
{| style="border-bottom-style: solid; border-right-style: solid; border-top-style: solid; border-left-style: solid" border="0" width="619"
|-
| width="248" | <font size="2">#</font> 
| width="15" | 
| width="802" colspan="3" | 
''Numéro de champ'' 

|-
| width="248" | <font size="2">#</font> 
| width="15" | 
| width="72" align="middle" | 
<font size="2">nom du champ / Clé</font> 

| width="20" align="middle" | 
| width="278" align="middle" | <font size="2">valeur du champ</font>
|-
| width="248" | <code><font size="4"><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;(%table) =&nbsp;</font></code> 
| width="15" | <code><font size="4">(</font></code> 
| width="72" | 
| width="20" | 
| width="278" | 
|-
| width="248" | 
| width="15" | 
| width="72" | <code><font size="4"><font color="#0000ff">"</font>René<font color="#0000ff">"</font>,</font></code> 
| width="20" | <code>=&gt;</code> 
| width="278" | <code><font size="4"><font color="#0000ff">"</font>1 Janvier 2002<font color="#0000ff">"</font>,</font></code>
|-
| width="248" | 
| width="15" | 
| width="72" | <code><font size="4"><font color="#0000ff">"</font>Frédéric<font color="#0000ff">"</font>,</font></code> 
| width="20" | <code>=&gt;</code> 
| width="278" | <code><font size="4"><font color="#0000ff">"</font>31 Décembre 2030<font color="#0000ff">"</font>,</font></code>
|-
| width="248" | 
| width="15" | 
| width="72" | <code><font size="4"><font color="#0000ff">"</font>Javier<font color="#0000ff">"</font>,</font></code> 
| width="20" | <code>=&gt;</code> 
| width="278" | <code><font size="4"><font color="#0000ff">"</font>2 Janvier 2002<font color="#0000ff">"</font>,</font></code>
|-
| width="248" | 
| width="15" | 
| width="72" | <code><font size="4"><font color="#0000ff">"</font>...<font color="#0000ff">"</font>,</font></code> 
| width="20" | <code>=&gt;</code> 
| width="278" | <code><font size="4"><font color="#0000ff">"</font>...<font color="#0000ff">"</font></font></code>
|-
| width="248" | 
| width="15" | <code><font size="4">);</font></code> 
| width="72" | 
| width="20" | 
| width="278" | 
|-
| width="248" | 
| width="15" | 
| width="72" | 
| width="20" | 
| width="278" | 
|-
| width="248" | 
| width="15" | 
| width="72" | 
| width="20" | 
| width="278" | 
|}
</center></div> 
&nbsp; 

S'utilise&nbsp;: 

<br><code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Vous êtes née le&nbsp;:&nbsp;%s\n", $table{"René"});</code> 

$prenom = "René"; 

<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Vous êtes née le&nbsp;:&nbsp;%s\n", $table{$prenom}); 

&nbsp; 

&nbsp; 

= Les boucles de Perl!  =

Les boucles permettent à un programme de répéter l'exécution d'une fonction, elles sont aussi importantes que les conditions... 

&nbsp; 

== Avec FOR  ==

=== 1) Classique  ===

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">for&nbsp;</u>(<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;$compteur = 0; $compteur &lt; 10&nbsp;; $ compteur++ )<br>{<br>&nbsp;&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Je sais compter jusqu'a&nbsp;:&nbsp;%d\n", $compteur);<br>}</code> 

&nbsp; 

=== 2) Raccourcie  ===

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">for&nbsp;</u>(0 .. 10)<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Je sais compter jusqu'a&nbsp;:&nbsp;%d\n", $_);<br>}</code> 

&nbsp; 

== Avec FOR<font color="#00ff00">EACH</font>  ==

La conditions de la boucle est simple&nbsp;: elle boucle tant qu'il y a des données dans un tableau de scalaire ou tableau de hashage... Hum ...&nbsp;: 

=== Avec une table de SCALAIRES  ===

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">foreach</u>&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;$tmp (@tableau)<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Dans ma table j'ai&nbsp;:&nbsp;%s comme valeur \n", $tmp);<br>}</code> 

&nbsp; 

&nbsp; 

=== Avec une table de HASHage  ===

Reprenez la table de HASHage que l'on a nommé&nbsp;:&nbsp;'''%hash''', intégrons-là dans un&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">foreach</u>&nbsp;et observons&nbsp;:)<br><font size="1">''On dit la référence de hashage!''</font> 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">foreach</u>&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;$tmp (<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">keys</u>&nbsp;%hash)<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Dans ma table de HASHage la clé&nbsp;%s a pour valeur&nbsp;:&nbsp;%s\n", $tmp, $hash{$tmp});<br>}</code> 

Une petite remarque volontairement placée ici et pas avant&nbsp;:)<br>Si vous avez exécuté le&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">foreach</u>&nbsp;dans un programme Perl vous constaterez que l'affichage de la table&nbsp;'''%hash&nbsp;'''n'est pas dans le même ordre que celui où nous l'avons crée! Cela peut paraître idiot, mais pour le moment la seule réponse à disposition est&nbsp;:&nbsp;[[File: 

<br> 

== Avec While.  ==

Tant que les conditions ne sont pas réunies tu continues à boucler!... Ainsi à l'intérieur des parenthèses de&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">while</u>&nbsp;se trouve la condition qui détermine le déroulement de cette fonction...&nbsp;: 

&nbsp; 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($je_cherche) = 1024; # Ici, et comme dans la plupart des variables, on pourrait demander à Perl::ASP<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # d'y ajouter des informations qu'un utilisateur WEB aurait saisies dans un formulaire!<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($compte) = 1000;<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">while</u>( $je_cherche&nbsp;!= $compte )<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Je sortirais d'ici tant que j'aurais pas 1024 dans \$je_cherche!!\n");<br>&nbsp;&nbsp; $compte ++;<br>}<br><br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("Enfin j'ai eu 1024!!! cela fait bien 1 Kilo Octet&nbsp;!!!\n");</code> 

&nbsp; 

= <br>Créez vos fonctions!  =

== Création d'une fonction&nbsp;:  ==

&nbsp; 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">sub</u>&nbsp;nom<br>{<br>&nbsp;&nbsp; votre code Perl.<br>}</code> 

Exemple&nbsp;: 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">sub</u>&nbsp;euro_vers_francs<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($euro) = 2; # somme en Euro.<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($francs) = 0; # Bien sur à définir!<br><br>&nbsp;&nbsp; $francs = $euro * 6.55957;<br><br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("La somme en Euro de '%d' vaut&nbsp;%s en francs Français\n", $euro, $francs);<br>}&nbsp;</code> 

== Exécuter (ou interprètes) notre fonction&nbsp;:  ==

&nbsp; 

<code><font color="#ff0000">&amp;euro_vers_francs();</font></code> 

&nbsp; 

<br>Remarque&nbsp;: le &amp; et ( ) ne sont pas obligatoires, malgré cela habituez-vous à les écrire! 

&nbsp; 

&nbsp; 

== Une fonction pour tout!  ==

La fonction que nous venons de créer a l'inconvénient d'être statique. Oui quel que soit l'endroit, le moment, ... Elle affichera toujours la conversion de 2 Euros en Francs! Si nous voulons qu'elle convertisse toutes les sommes en Francs (celles qui intéressent le programmeur&nbsp;:) nous devons lui apprendre à utiliser les "arguments". 

Les arguments sont des données que l'on transmet aux fonctions de notre choix. 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">sub</u>&nbsp;euro_vers_francs<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($euro) = 2; # somme en Euro.<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($francs) = 0; # Bien sur à définir!</code> 

<code>&nbsp;&nbsp; $euro =&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">shift</u>; # pour simplifier, on peut aussi remplacer<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">shift</u>&nbsp;par&nbsp;<font color="#800000">@_</font>. Mais c'est pas bien!<br><br>&nbsp;&nbsp; $francs = $euro * 6.55957;<br><br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("La somme en Euro de '%d' vaut&nbsp;%s en francs Français\n", $euro, $francs);<br>}</code> 

&nbsp; 

&nbsp; 

== Renvoyer des informations  ==

&nbsp; 

<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">sub</u>&nbsp;euro_vers_francs<br>{<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($euro) = 2;&nbsp;&nbsp;&nbsp;&nbsp; # somme en Euro.<br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($francs) = 0;&nbsp; # Bien sur à définir!</code> 

<code>&nbsp;&nbsp; $euro =&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">shift</u>; # pour simplifier, on peut aussi remplacer<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">shift</u>&nbsp;par&nbsp;<font color="#ff0000">@_</font>. Mais c'est pas bien!<br><br>&nbsp;&nbsp; $francs = $euro * 6.55957;<br><br>&nbsp;&nbsp;&nbsp;<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">return</u>&nbsp;( $francs );<br>}<br><br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("La somme en Euro de '%d' vaut&nbsp;%s en francs Français\n",&nbsp;<font color="#006699">&amp;euro_vers_francs(2)</font>&nbsp;);<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("La somme en Euro de '%d' vaut&nbsp;%s en francs Français\n",&nbsp;<font color="#006699">&amp;euro_vers_francs(100)</font>&nbsp;);</code> 

&nbsp; 

&nbsp; 

&nbsp; 

&nbsp; 

= Perl et ASP  =

== Principes de l'ASP  ==

ASP signifie&nbsp;:&nbsp;''Active Server Pages&nbsp;''soit Serveur de Pages Dynamiques... Il rend les pages dynamiques tout comme PHP. Perl::ASP peut fonctionner sur une multitude de systèmes d'exploitations&nbsp;: Unix, Windows, ... Enfin, avec les serveurs WEB pouvant utiliser Perl par le module nommé "perl_mod" 

&nbsp; 

&nbsp; 

&nbsp; 

== Nécessaire  ==

Pour pouvoir créer des pages HTML dynamiques avec Perl::ASP, il conseillé d'avoir un certain nombre d'outils&nbsp;: 

Avoir des notions de programmation&nbsp;: html, perl ou autre langage script.;<br>Un éditeur de texte<br>Installé&nbsp;: Un serveur HTTP, le module ASP de Perl (ne pas oublier perl_mod ) et Perl&nbsp;!<br>... 

<br> 

&nbsp; 

<br>Après quelques notions du langage Perl voici comment utiliser ce langage dans vos pages HTML. 

&nbsp; 
<blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"><blockquote style="margin-left: 15px"><blockquote style="margin-left: 15px"><font size="5">&lt;%<br>....<br>&nbsp;&nbsp;&nbsp; Votre code Perl<br>...<br>&nbsp;%&gt;</font></blockquote></blockquote></blockquote> 
*&nbsp;'''&lt;%'''&nbsp;<code>=nom_variable</code>&nbsp;'''%&gt;'''&nbsp;est équivalent à&nbsp;: &lt;%&nbsp;<code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">printf</u>("$non_vriable");</code>&nbsp;%&gt; ou à &lt;% <code>print "$non_vriable";</code>&nbsp;%&gt;

== Interroger un formulaire  ==

<br><code><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($reponse) = $Request-&gt;Form("nom_du_champ");</code> 

&nbsp;Exemple&nbsp;: 

La calculatrice pour calculer les euros en Francs!!! 

&nbsp;[http://download.gyptis.org//public/Perl::ASP/calculatrice_euro.asp calculatrice.asp] (<span style="font-size: xx-small">24Ko</span>) 

== Interroger l'URL  ==

Cela consiste à lire les valeurs qui constitue l'URL. 

Exemple&nbsp;:<br>Appeler votre programme&nbsp;: 

&nbsp;'''<font color="#0000ff">http:// * url */Animation/test2.asp</font><font color="#ff0000">?</font>prenom=LeGlaude<font color="#ff0000">&amp;</font>nom=Albertini<font color="#ff0000">&amp;</font>ma_variable=ma_valeur''' 

&nbsp; 

=== 1) Un argument particulier  ===

<br><u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;($valeur) = $Request-&gt;QueryString("nom de la variable"); 

&nbsp; 

=== 2) Tous les argument de l'URL  ===

<u style="color: rgb(89,89,255); font-size: 14pt" class="perl_fonction">my</u>&nbsp;(&nbsp;%hash_url ) =&nbsp;<font color="#008000">'''%{'''&nbsp;</font>$Request-&gt;QueryString()&nbsp;<font color="#008000">'''}'''</font>; 

'''%hash_url'''&nbsp;contient une liste de type soit&nbsp;: 
<blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px">%hash_url = (<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'nom' =&gt; 'Albertini',<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'prenom' =&gt; 'Glaude'<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"><br></blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"><br></blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"><br></blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"><br></blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"></blockquote> 
= Liens utiles  =

{| border="0" width="604"
|- style="font-family: arial, sans-serif; font-size: medium"
| height="20" valign="top" width="235" | Une explication de Perl::ASP 
| height="20" valign="top" width="40" | 
| height="20" valign="top" width="309" | [http://www.apache-asp.org/index.html http://www.apache-asp.org/index.html]
|- style="font-family: arial, sans-serif; font-size: medium"
| height="21" valign="top" width="235" | Le lien original de Perldoc 
| height="21" valign="top" width="40" | 
| height="21" valign="top" width="309" | [http://www.enstimac.fr/Perl/DocFr.html http://www.enstimac.fr/Perl/DocFr.html] 
[http://www.enstimac.fr/Perl/ http://www.enstimac.fr/Perl] 

|}
</blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"><br></blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px"></blockquote></blockquote></blockquote><blockquote style="line-height: 12px; font-family: arial; color: rgb(83,83,83); margin-left: 15px; font-size: 8px">
<span style="font-size: medium"><span style="font-family: courier new, courier, monospace"><tt>(Dernière modification&nbsp;: 20 Mai 2005)</tt></span></span> 
</blockquote>
[[Catégorie:Perl]]