Variables, commentaires et syntaxe

---

• $ scalaire (zone simple numérique ou alphanum)
• @ matrice ou tableau (array en anglais)
• % tableau associatif ou "hash" (on détaillera plus tard)

• Un premier caractère significatif du type de donnée
• Des minuscules et/ou des majuscules
• Des chiffres
• Le caractère souligné _ (underscore)

• Entre quotes ' ' les variables ne sont pas interprétées
• Entre guillemets " " les variables sont interprétées (on leur substitue leur contenu)

Hello World! - Le premier programme

---

#!usr/bin/perl
print "Hello world!\n";

• Crée le fichier hello.pl et met-y le petit chef-d'oeuvre
• Ouvre une fenêtre DOS
• Place toi dans le répertoire contenant hello.pl
  (commande DOS cd \rep1\rep2...)
• Tape perl hello.pl
• Admire...

Données scalaires - Chaînes de caractères

---

• Un nombre est un scalaire. Par exemple 24 ou bien 104.5
• Une chaîne de caractère est un scalaire : 'Monsieur Dupond'
• Le retour chariot est une donnée scalaire : "\r"
• Une variable scalaire commence par le signe $

• \n Nouvelle ligne (LF=Line Feed ou NL=New Line))
• \r Retour chariot (CR=Carriage Return)
• \t Tabulation (HT, TAB)
• \f Saut de page (FF=Form Feed)
• \b Retour arriere (Backspace)
• \a Bip (BEL)
• \e Escape (ESC)
• \007 Toute valeur ASCII octale (07=Bip)
• \x7f Toute valeur ASCII hexadecimale (7f=delete)
• \l Convertit la lettre suivante en minuscule (l=low)
• \u Convertit la lettre suivante en majuscule (u=upper)
• \L Convertit les lettres suivantes en minuscule jusqu'à \E
• \U Convertit les lettres suivantes en majuscule jusqu'à \E

Une chaîne vide se note "" ou ''.

Une donnée scalaire est interprétée comme vraie (True) au sens booléen si ce n'est pas une chaîne vide ou le nombre 0 (ou son équivalent sous forme de chaîne : '0')

Il existe deux variétés de scalaires nuls : ceux qui sont définis et ceux qui ne le sont pas. Par exemple utiliser une variable non initialisée retourne une valeur nulle non définie (donc fausse (False) au sens booléen).

Opérateurs

---

Comparaison

On utilisera pour des variables numériques :

#!usr/bin/perl -w
$a=8;$b=10;
if ($a<$b)    {print "vrai\n"} else {print "faux\n"};
if ($a lt $b) {print "vrai\n"} else {print "faux\n"};
$c='8';$d='10';
if ($c<$d)    {print "vrai\n"} else {print "faux\n"};
if ($c lt $d) {print "vrai\n"} else {print "faux\n"};

Affectation

Elle est réalisée par le signe =

$a+=2; est équivalent à $a=$a+2; c'est également valable pour - / * (et d'autres encore)

Arithmétique

+ Addition     - Soustraction

++ Auto-incrémentation. Placé avant une variable il y a incrémentation AVANT de retourner la valeur, placé APRES il y a d'abord retour de la valeur puis incrément.

-- Auto-décrémentation. Attention elle ne possède pas le pouvoir "magique".

** Puissance.

* Multiplication.

/ Division.

% Modulo. Pour ceux qui ne savent pas, c'est le reste de la division. Par exemple $a%$b représente le reste de la division $a par $b.

Unaires

On dit unaires parce qu'ils s'appliquent à un seul terme, celui situé immédiatement à droite.

! Non logique. On peut également l'écrire not. Si l'expression est vraie elle devient fausse et vice-versa.

- Négation arithmétique. Rendre un nombre négatif.

~ Négation bit à bit. Pour chaque bit à 1 on met 0 et pour chaque bit à 0 on met 1. Autrement dit on fait le complément à 1.

Logiques

& Et logique bit à bit

| OU logique inclusif bit à bit

^ OU logique exclusif bit à bit

&& on peut utiliser and à la place. C'est le ET logique rapide. Cela signifie que si l'opérande gauche est faux, l'opérande droit n'est même pas évalué.

|| on peut utiliser or à la place. C'est le OU logique rapide. Cela signifie que si l'opérande gauche est vrai, l'opérande droit n'est même pas évalué.

Et maintenant voyons ça du côté de chez Bool :

    ET         OU       OUX   (en réalité on dit AND OR et XOR)
1 1 0 0    1 1 0 0    1 1 0 0
1 0 1 0    1 0 1 0    1 0 1 0
--------    --------    --------
1 0 0 0    1 1 1 0    0 1 1 0

Et maintenant ce qui suit est destiné à faire comprendre aux non matheux la différence entre ET, OU et OU exclusif.

ET

Pierre et Jean jouent à la belote. Mais comme chacun sait pour faire une partie il faut être être quatre. Ils attendent donc 2 adversaires. Si Albert ET Marc viennent ils feront leur partie sinon ils continueront à s'em...

OU

Paul, Pierre et Jean jouent encore à la belote. Ils attendent le quatrième. Si Albert OU Marc viennent ils feront leur partie (et c'est le cinquième qui s'em...), sinon ils continueront leur partie à 3 (pas folichon...)

OU exclusif

Paul, Pierre et Jean jouent toujours à la belote. Ils attendent toujours un quatrième. Si Albert OU Marc viennent ils feront leur partie mais comme ils sont polis si les deux viennent ensemble ils ne joueront pas (en fait ils feront une petit tarot à 5), si personne ne vient ils continueront leur partie à 3 (toujours pas gai gai...)

Ici on va parler un peu des conditions composées associées à la négation.

C'est un problème qui se pose un jour à tout programmeur. Et si l'un d'entre eux te dit qu'il n'a jamais fait l'erreur, ne le croie sutout pas : c'est un menteur!

On va partir d'une phrase simple comme "S'il pleut j'irai faire une balade sinon dodo".

Et puis on va compliquer un peu. En langage parlé de tous les jours nous pourrions dire : "S'il ne pleut pas ou il ne grêle pas j'irais faire une balade sinon dodo" et tout le monde comprend, c'est sans ambiguité.

Les ennuis commencent lorsqu'on veut traduire ce genre de phrase (la deuxième bien sûr) dans un programme. On va écrire par exemple :

#!usr/bin/perl
$temps='.....'; # utilise soleil, pluie grele
if ($temps ne 'pluie' or $temps ne 'grele')
     {$action='balade';}
else {$action='dodo';}
print "temps=$temps alors $action\n";

Et teste le en utilisant respectivement soleil, pluie et grele. Ca ne marche pas. Pourquoi ?

Et bien parce que ce n'est pas le bon opérateur qui relie les conditions. Utilise and à la place de or et tout fonctionnera normalement.

Sans avoir testé tu n'est pas convaincu ? Très bien. On va mettre l'erreur en évidence en prenant le contraire de la phrase :

Effectivement c'est tout aussi juste de dire "S'il pleut, dodo sinon balade" que "s'il ne pleut pas, balade sinon dodo".

Appliquons le contraire à notre cas : "S'il pleut ET s'il grele j'irai au dodo sinon balade" on voit bien là que ce ET n'est pas bon (il ne peut pas pleuvoir et grêler à la fois! ). C'est un OU qu'il aurai fallu ce qui implique que dans la phrase initiale il aurait fallu dire : "S'il ne pleut pas ET s'il ne grêle pas j'irais faire une balade sinon dodo".

En conclusion méfie-toi du langage parlé, surtout avec des négations. Si tu as un doute prends le contraire de ta phrase c'est souvent plus simple.

Dans les contraires ET et OU s'inversent, égal et différent aussi, ainsi que plus grand et plus petit, une double négation s'annule, et les actions se permutent. Ainsi écrit cela a l'air bien compliqué, mais avec du bon sens c'est simple.

Divers

. (point) Concaténation de 2 chaînes 'ABC'.'DE' représente la chaîne 'ABCDE'

x Répétition. "ab"x10 représente la chaîne "ab" répétée 10 fois.

Il reste des opérateurs, mais ils débordent le cadre des notions élémentaires.

La circonférence du cercle - Le deuxième programme

---

#!/usr/bin/perl -w

##
# circonférence d'un cercle
##

sub PI {3.1415926535};

print ("\nBonjour,\n");
print ("nous allons calculer la circonférence d'un cercle.\n");
print ("Veuillez entrer le rayon (exemple 1.8) :\t");

chomp($r = <STDIN>);
$circ = 2*$r*PI;

print ("\nLa circonférence d'un cercle de rayon $r vaut : $circ\n");

Dans cet exemple ce qui est intéressant c'est la ligne
chomp($r=<STDIN>); Le reste on connait ou on intuite.

<STDIN> réalise une lecture du clavier. Une lecture du clavier se termine par l'appui sur la touche entrée qui génére le caractère "newline" (notre fameux \n). Ce caractère est gênant, il faut l'éliminer. On peut imaginer pas mal de techniques mais il en est une qu'il faut employer.

Il s'agit de la fonction chomp(), particulièrement adaptée à cet usage et qui réalise la suppression du caractère de droite, si celui-ci est égal à la variable $/ (également connue sous le nom de $INPUT_RECORD_SEPARATOR) initialisée par défaut avec "newline" (LF ou NL). Attention la fonction chomp() travaille directement sur la variable qu'elle modifie et retourne le nombre de caractères supprimés.

Anciennement, c'était la fonction chop(), qui était utilisée. Cette fonction supprime systématiquement le caractère de droite et renvoie celui-ci.

Notion de bloc - Instructions if et unless

---

Des instructions ayant un lien logique entre elles peuvent être groupées. On dit dit alors qu'elles forment un bloc. Un bloc est délimité par des accolades {}.

Le lien logique peut-être par exemple le fait qu'elles soient exécutées sous le contrôle d'une instruction. On parle alors de la portée (scope en anglais) de cette instruction. On pourrait dire aussi "champ d'action".

l'instruction if

3 façons d'écrire des if.

if (....) {....}

if (....) {....} else {....}

if (....) {....} elsif (....) {....} ... else {....}

- Entre les () qui sont obligatoires on trouve une condition.

- Entre les {} qui sont obligatoires on trouve un bloc d'instructions.

- Bien entendu on peut imbriquer des if dans les blocs d'instructions. Evite néanmoins de faire des conditions trop complexes. Utilise plutôt la syntaxe avec elsif.

unless

Tu sais écrire un if ? Alors tu sais écrire unless C'est pareil ! Unless inverse seulement le résultat des tests. Par exemple :

$a=1;if ($a==1) {print 'un';} else {print 'pas un';} imprimera 'un'

en remplaçant if par unless le programme imprimera 'pas un'.

Un petit jeu en guise d'exercice

---

#!usr/bin/perl -w
use integer;
print "Entre un niveau de difficulte de 1 a 10 : ";
chomp($niv = <STDIN>);
$n=int(rand(9999999999/10**(10-$niv)));
print "Retient ton code : $n";
sleep(2);
print "\b"x40," "x40,"\n";
print "Rentre ton code : "; chomp($code = <STDIN>);
if ($code == $n) {print "Gagne\n";}
   else          {print "Perdu\n";}

Ce petit programme clôture les notions dites élémentaires. On va passer à quelques concepts un peu plus évolués.