Intro à Perl

Introduction à Perl et ASP

 

Principes de l'ASP

ASP signifie : Active Server Pages 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 : Unix, Windows, ... Enfin, avec les serveur WEB pouvant utiliser Perl par le module nommé "perl_mod"

 

 

 

Nécessaire

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

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

 

 

Bien commencer!

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

 

Afficher des informations avec Perl.

printf (" blabla j'afficheeee ");

avec retour à la ligne :

printf (" là, j'affiche avec un saut de ligne grâce à l' Anté Slash collé à la lette 'n' ");

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 peu 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 -> SCALAIRE ; je crois que ce mot à une signification mathématique... :)

Pour demander à Perl d'utiliser une variable, de la déclarer, on utilise la fonction "my" :

my ($ma_memoire) = "les informations à mémoriser";

  ou

my ($texte) = "Marin";
my ($chiffre) = "9";

Les données contenues dans les variables seront interprétées automatiquement par Perl. Par exemple si nos variables se trouvent dans un printf, Perl affichera leur contenu :

printf(" Contenu de texte : $texte, et de chiffre : $chiffre \n");

Remarque : Vous n'êtes pas obligé d'utiliser "my" pour déclarer vos variables, vous pouvez le faire sans! Mais! sans rentrer dans les détails il est fortement conseillé d'utiliser "my" à chaque déclaration. Quand vous aurez à débuguer un programme Perl dans une page ASP, vous apprécierez sans aucuns doute les bien fait de son utilisations.

 

 

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éfinie par le programmeur... Elle sont la base de l'informatique, sans elles nos ordinateurs ne feraient qu'afficher des informations ...

Exemple de comparaison de deux variables (Scalaire :)

if ($texte eq $chiffre)
{
   printf("Le contenu de la variable $texte est égal au contenu de la variable $chiffre\n");
}
else
{
   printf("\$texte et \$chiffre ne sont pas égal!\n");
}

 

Remarque : 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... 

Autres opérateurs de comparaison acceptés dans le "if( ... )" :

L'opérateur binaire	"<"	renvoie vrai si son opérande gauche est	numériquement	plus petit que son opérande droit.
L'opérateur binaire	">"	renvoie vrai si son opérande gauche est	numériquement	plus grand que son opérande droit.
L'opérateur binaire	"<="	renvoie vrai si son opérande gauche est	numériquement	plus petit ou égal que son opérande droit.
L'opérateur binaire	">="	renvoie vrai si son opérande gauche est	numériquement	plus grand ou égal que son opérande droit.
L'opérateur binaire	"lt"	renvoie vrai si son opérande gauche est	alphabétiquement	plus petit que son opérande droit.
L'opérateur binaire	"gt"	renvoie vrai si son opérande gauche est	alphabétiquement	plus grand que son opérande droit.
L'opérateur binaire	"le"	renvoie vrai si son opérande gauche est	alphabétiquement	plus petit ou égal que son opérande droit.
L'opérateur binaire	"ge"	renvoie vrai si son opérande gauche est	alphabétiquement	plus grand ou égal que son opérande droit.

Notez cette liste, car d'autres fonctions de Perl les utilisent!

 

Utiliser les informations mémorisées

Afficher

printf permet de traiter les informations fixes mais aussi et surtout "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 variable pourra changer lors de l'exécution d'un programme :

printf("Ton prénom est : $texte \n");       # N° 1
ou
printf("Ton prénom est : %s \n",  $texte); # N° 2

• 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 :"...

 

Autre exemple :

printf("Ton chiffre/nombre est : %d \n",  $chiffre);

 

Calculer

$chiffre = $chiffre * 100;
printf("Le nombre multiplié par 100 est égal à : %s \n",  $chiffre);

 

Ajouter

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

my ($phrase) = ""; # ne pas oublier d'initialiser les variables! (si ce n'est pas déjà fait!)

$phrase = $texte . " a " . $chiffre . " ans.";

ou

$phrase = sprintf("%s  a  %d ans!",  $texte,  $chiffre);

print ("$phrase");

Donne : Marin a 900 ans!

 

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 ce passe bien!

 

$phrase = "Perl et PHP"; # ici on n'utilise pas, volontairement, "my", car $phrase 
                                         # est déjà déclaré/connu de Perl.
my ($mot1) = ""; # On demande à Perl de déclarer $mot1, mais de ne rien y mettre...
my ($mot2) = ""; # ...

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

($mot1, $mot2) = split (/ et /, $phrase, 2);

1. On demande à Perl de s'assurer que les réponses de split soient correctes.
   # Ce n'est pas du tout obligatoire, mais ça permet d'éviter des surprises...

$mot1 = "" if ( !defined ($mot1) ); # on demande à Perl de placer du vide dans $mot1
                                                     # si celui-ci n'existe plus.
$mot2 = "" if ( !defined ($mot2) );

1. On affiche le résultat.
   printf("Mot1 = %s, Mot2 : %s\n", $mot1, $mot2);
   
   
   
   

Remplacer

 

my ($mot) = "Hackers";
my ($crackers) = "les Hackers sont des pirates";

printf("%s ?\n", $crackers);

my ($nombre_trouve) = ($crackers =~ s/${mot}/Crackers/g);

printf("Non!, %s !\n", $crackers);
printf(" Le mot %s a été trouvé %s fois\n", $mot, $nombre_trouve);

 

 

Les Tableaux

(Pour plus de détails voir perldata)

Tableau de Scalaires

 

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 :) comme le nom, prénom, la date de naissance, son numéro de carte bleue ... :) Il faudra déclarer un tableau comme suit :

 

my ( @tableau ) = (                                 "Cougnenc",                                "René",                                "1 Janvier 2002",                                "0391 4389 6752 9172"                              );

@tableau nom prenom nee carte_bleu

S'utilise :

printf("
Prénom : %s
Nom : %s
Né le : %s
CB N° : %s
", $tableau[0], $tableau[1], $tableau[2], $tableau[3]);

printf(" Vous avez : %d éléments dans votre tableau!", $#tableau);

 

 

Tableau plus complexe!

Se dit aussi : tableau associatif de SCALAIRES.

#			Numéros de champ
# Nom de la table			0	1	2	3
my (@table) =	(
		[	"René",	"Cougnenc",	"1 Janvier 2002",	"cb1"	], # 0
		[	"Frédéric",	"René",	"31 Décembre 2030",	"reste à donner"	], # 1
		[	"Javier",	"Garmendia",	"2 Janvier 2002",	"déjà donné"	], # 2
		[	"...",	"...",	"...",	"..."	]  # 3
	);

S'utilise :

printf("
Prénom : %s
Nom : %s
Née le : %s
CB N° : %s
", $table[1]->[0], $table[1]->[1], $table[1]->[2], $table[1]->[3]);

 

Tableau de HASHage

Se dit aussi : les tableaux associatifs de scalaires (voir perldata ch. 4.1.1)

 

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

 

my (%hash)    = ""; # Je déclare mon Hashage! et je mets rien dedans!

$hash{"clefs"} = "valeur";
$hash{"prenom"} = "Guy";
$hash{"nom"} = "Decarpentrie";

S'utilise :

printf("Mr %s n'aime pas Alexia! (moi aussi :) Pourtant elle affirme qu'elle connaît bien %s!\n", $hash{"nom"}, $hash{"prenom"} ); 
# (no comment :)

 

Une autre forme pour déclarer un HASHage

#		Numéro de champ
#		nom du champ / Clé		valeur du champ
my (%table) =	(
		"René",	=>	"1 Janvier 2002",
		"Frédéric",	=>	"31 Décembre 2030",
		"Javier",	=>	"2 Janvier 2002",
		"...",	=>	"..."
	);

 

S'utilise :

printf("Vous êtes née le : %s\n", $table{"René"});

$prenom = "René";

printf("Vous êtes née le : %s\n", $table{$prenom});

 

 

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...

 

Avec FOR

1) Classique

for (my $compteur = 0; $compteur < 10 ; $ compteur++ )
{
    printf("Je sais compter jusqu'a : %d\n", $compteur);
}

 

2) Raccourcie

for (0 .. 10)
{
   printf("Je sais compter jusqu'a : %d\n", $_);
}

 

Avec FOREACH

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

Avec une table de SCALAIRES

foreach my $tmp (@tableau)
{
   printf("Dans ma table j'ai : %s comme valeur \n", $tmp);
}

 

 

Avec une table de HASHage

Reprenez la table de HASHage que l'on a nommé : %hash, intégrons-là dans un foreach et observons :)
On dit la référence de hashage!

foreach my $tmp (keys %hash)
{
   printf("Dans ma table de HASHage la clé %s a pour valeur : %s\n", $tmp, $hash{$tmp});
}

Une petite remarque volontairement placée ici et pas avant :)
Si vous avez exécuté le foreach dans un programme Perl vous constaterez que l'affichage de la table %hash 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 : [[File:

Avec While.

Tant que les conditions ne sont pas réunies tu continues à boucler!... Ainsi à l'intérieur des parenthèses de while se trouve la conditions qui déterminer le déroulement de cette fonction... :

 

my ($je_cherche) = 1024; # Ici, et comme dans la plupart des variables, on pourrait demander à Perl::ASP
                                         # d'y ajouter des informations qu'un utilisateur WEB aurait saisies dans un formulaire!
my ($compte) = 1000;
while( $je_cherche != $compte )
{
   printf("Je sortirais d'ici tant que j'aurais pas 1024 dans \$je_cherche!!\n");
   $compte ++;
}

printf("Enfin j'ai eu 1024!!! cela fait bien 1 Kilo Octet !!!\n");

 

Créez vos fonctions!

Création d'une fonction :

 

sub nom
{
   votre code Perl.
}

Exemple :

sub euro_vers_francs
{
   my ($euro) = 2; # somme en Euro.
   my ($francs) = 0; # Bien sur à définir!

   $francs = $euro * 6.55957;

   printf("La somme en Euro de '%d' vaut %s en francs Français\n", $euro, $francs);
} 

Exécuter (ou interprètes) notre fonction :

 

&euro_vers_francs();

 

Remarque : le & et ( ) ne sont pas obligatoire, malgrés cela habituez-vous à les écrire!

 

 

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 :) nous devons lui apprendre à utiliser les "arguments".

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

sub euro_vers_francs
{
   my ($euro) = 2; # somme en Euro.
   my ($francs) = 0; # Bien sur à définir!

   $euro = shift; # pour simplifier, on peut aussi remplacer
                         # shift par @_. Mais c'est pas bien!

   $francs = $euro * 6.55957;

   printf("La somme en Euro de '%d' vaut %s en francs Français\n", $euro, $francs);
}

 

 

Renvoyer des informations

 

sub euro_vers_francs
{
   my ($euro) = 2;     # somme en Euro.
   my ($francs) = 0;  # Bien sur à définir!

   $euro = shift; # pour simplifier, on peut aussi remplacer
                         # shift par @_. Mais c'est pas bien!

   $francs = $euro * 6.55957;

   return ( $francs );
}

printf("La somme en Euro de '%d' vaut %s en francs Français\n", &euro_vers_francs(2) );
printf("La somme en Euro de '%d' vaut %s en francs Français\n", &euro_vers_francs(100) );

 

 

 

 

Perl et ASP

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

 

<%
....
    Votre code Perl
...
 %>

•  <% =nom_variable %> est équivalent à : <% printf("$non_vriable"); %> ou à <% print "$non_vriable"; %>

Interroger un formulaire

my ($reponse) = $Request->Form("nom_du_champ");

 Exemple :

La calculatrice pour calculer les euros en Francs!!!

http://www.123arcos.com/Animation/calculatrice_euro.asp

 

Interroger l'URL

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

Exemple :
Appeler votre programme :

 http://www.123arcos.com/Animation/test2.asp?prenom=LeGlaude&nom=Albertini&ma_variable=ma_valeur

 

1) Un argument particulier

my ($valeur) = $Request->QueryString("nom de la variable");

 

2) Tous les argument de l'URL

my ( %hash_url ) = %{ $Request->QueryString() };

%hash_url contient une liste de type soit :

%hash_url = (
                        'nom' => 'Albertini',
                        'prenom' => 'Glaude'
                     )