Le PERL


Introduction
Les variables en PERL
Les boucles
Les conditions
Les fichiers
Les fonctions
Les fichiers


Comme le langage PERL a été développé pour pourvoir traiter de manière simple les fichiers, il est normal qu'il possède quantité de fonctions relatives au traitement de fichiers.

Seules les fonctions de base seront abordées ici.

En PERL, un fichier peut être un fichier physique situé sur un disque, mais aussi le clavier (STDIN), l'écran (STDOUT) et la sortie erreurs (STDERR).

L'entrée STDIN est souvent employée quand le script PERL doit traiter des informations en provenance d'un formulaire, puisque les données y sont stockées.

Ouverture et fermeture d'un fichier
L'ouverture d'un fichier se fait via la commande :
open (nom_symbolique, "nom_fichier");

nom_fichier contient le chemin d'acccès au fichier (par exemple c:\windows\modem.log). On ajoute aussi généralement avant le nom du fichier, la manière dont on va accéder au fichier. Pour les accès possibles, reportez vous au tableau ci dessous.

Commande

Description

open(nom_symbolique," nom_fichier") Ouvre le fichier en lecture
open (nom_symbolique, "<nom_fichier") L'ouvre aussi en lecture
open (nom_symbolique, ">nom_fichier") Ouvre le fichier en écriture. S'il n'existe pas il est créé.
open (nom_symbolique," >>nom_fichier") Ouvre le fichier en ajout, tout ce qui est écrit dans le fichier sera placé à la fin de celui-ci.
open(nom_symbolique, "+>nom_fichier") Ouvre le fichier en lecture et en écriture
open(nom_symbolique, | PROGRAM) Envoie les données imprimées dans le fichier nom_symbolique vers le programme PROGRAM
open(nom_symbolique, PROGRAM |) Utilise les données envoyées par PROGRAM comme source de données.

La fermeture d'un fichier se fait via la commande close(nom_symbolique);

Lire et écrire
Une méthode souvent utilisée en PERL consiste à lire entièrement le fichier et à placer tout son contenu dans une table. Cette méthode est fort pratique quand on travaille avec des fichiers dont chaque ligne correspond à un enregistrement.

On fait cela grâce à l'instruction :
@LINES=<nom_symbolique>;
Cette ligne place tout le contenu du fichier nom_symbolique dans le tableau @LINES.

On peut également lire une partie du fichier via l'instruction :
read(nom_symbolique, BUFFER, LONGUEUR,POSITION_DEBUT);

Cette instruction va lire le fichier nom_symbolique sur une longueur de LONGUEUR à partir de POSITION_DEBUT et va placer le résultat de cette lecture dans BUFFER.

L'écriture dans un fichier peut se faire de manière relativement simple en utilisant l'instruction :
print nom_symbolique TEXTE;
Cela imprime dans le fichier nom_symbolique les données contenues dans TEXTE.
Quand on ne spécifie pas de nom de fichier, cela signifie que l'on affiche TEXTE à l'écran.

TEXTE peut contenir des constantes mais aussi des appels de variables comme dans l'exemple suivant :
$nom = "Frédéric";

print "\nBonjour, mon nom est : $nom.";

Ce morceau de code affiche à l'écran :
Bonjour mon nom est : Frédéric.

Une autre instruction de sortie est l'instruction printf. Tout comme en C, elle permet de spécifier le format de sortie des données. Sa syntaxe générale est :
printf nom_symbolique(FORMAT, VARIABLES);
Cela permet d'aligner des nombres sur le signe décimal comme le montre l'exemple suivant :
$CoutJanvier = 123.34;
$CoutFévrier = 23345.45;
printf("Janvier = \$%8.2f\n", $CoutJanvier);
printf("Février = \$%8.2f\n", $CoutFévrier);

Ce morceau de code provoquera l'affichage suivant :
Janvier = $  123.34
Février = $23345.45

Le PERL possède également toutes sortes de fonctions permettant de se positionner dans un fichier à un endroit donné, de supprimer des fichiers, de bloquer l'accès à des fichiers (sémaphores pour les accès concurrents sous Unix uniquement).



Page précédente | Introduction | Page suivante





© Rotule 1999 - 2002
Faites parvenir vos commentaires au Webmaster