1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

DESS TIMH

B.Fermeture

Commande close
close FENT; close FSOR;

Introduction au langage Perl

  1. Lecture

$ligne = <FENT>;
ex:$reponse = <STDIN>;

=> lecture d'une ligne à l'écran

Remarque:
- La fin de ligne (retour-chariot) est lue également. Pour enlever cette fin de ligne il suffit d'utiliser
la commande
chop, ou son équivalent : chomp(enlève le dernier caractère uniquement si c'est un
retour-chariot)
- On peut lire toutes les lignes d'un fichier dans un tableau (en une seule instruction)
@lignes = <FENT>;

  1. Ecriture

    print Fsor ce-que-je-veux;

print FSOR 'DUPONT Jean';
print FMAIL 'Comment fait-on pour se connecter SVP ?';
print STDOUT "Bonjour\n";
print STDERR 'Je déteste les oranges !';

  1. Parcours

IMAGE imgs/introperl19.gif

  1. Fichier spécial : <>

    Perl offre une fonctionnalité bien pratique : l'utilisation d'un fichier spécial en lecture qui
    contiendra ce qui est lu en entrée standard.

IMAGE imgs/introperl20.gif

Remarque: Lorsque, dans une boucle « while », on ne spécifie pas dans quelle variable on lit le
fichier : la ligne lue se trouvera dans la variale spéciale « 
$_».

Ainsi ce programme demandera d'écrire quelques lignes et affichera le nombre de lignes
qu'il a lues. Mais il permet également de prendre un ou plusieurs fichiers en paramètre.
(voir chapitre Passages de paramètres au programme page 24)

http://www.med.univ-rennes1.fr/~poulique/cours/perl/

Page 18

[CONVERTED BY MYRMIDON]