Nom	Fonctionnalit�	Exemple
Open	Ouverture d'un fichier	Open (MONFICH, "fich.txt");
Close	Fermerture d'un fichier	Close (MONFICH);
= <NOM_FICHIER>	Lecture de lignes	$line = <MOMFICH>;
Print	Ecriture de lignes	Print (MONFICH, "ma ligne a �crire\r\n";
if -f	Test de l'existence du fichier ou du repertoire	if (-f "monfichier")
stat	Information sur le fichier	stat ("nomfichier");
rename	Renomme le fichier	rename "monfichier", "nouveaunom";
unlink	Efface le fichier	unlink "monfichier";

3. Exemples de lecture de fichier

3. 1. Lecture d'une ligne

Voici un exemple de lecture du fichier test.txt qui se trouve dans le r�pertoire courant :

open (RESU, "test.txt");

$whole_line = <RESU>

print "$whole_line";

close (RESU);

Cet exemple affiche la premi�re ligne du fichier.

La commande "Open" permet d'ouvrir le fichier. "RESU" est la variable qui permettra par la suite d'acc�der au fichier. Ensuite, on pr�cise le nom du fichier � ouvrir, dans notre cas : test.txt.
La commande suivante permet de copier le contenu de la ligne du fichier dans la variable "$whole_line". L'acc�s au fichier se fait donc gr�ce � la commande <NOMFICH> qui contient la valeur de la ligne courante.
La commande "Print" affiche � l'�cran la valeur de la variable "$whle_line"
Enfin, la commande "Close" ferme le fichier. La fermeture d'un fichier signifie simplement qu'il n'est plus en acc�s, et que par cons�quent, un autre programme peut y avoir acc�s.

3. 2. Lecture de tout un fichier

3.2.1. Utilisation d'une boucle

Voici le m�me code l�g�rement modifier afin d'afficher tout le fichier :

open (RESU, "test.txt");

while ($whole_line = <RESU>) {

    print "$whole_line";

}

close (RESU);

En effet, la boucle "While" permet de lire chaque ligne, jusqu'� la fin du fichier. la commande de lecture de ligne du fichier place automatiquement le "curseur" sur la ligne d'apr�s. C'est-�-dire que si vous faites la commande "$whole_line = <RESU>" deux fois de suite, vous r�cup�rerez deux lignes diff�rentes ! Si <RESU> est consid�r�e comme une variable normale, d�s qu'elle est lue, cette variable prend la valeur de la ligne suivante.

3.2.2. Sans utilisation d'une boucle

open (RESU, "test.txt");

@Fichier = <RESU>;

close (RESU);

Ceci permet de lire tout le fichier et de le mettre dans le tableau "@Fichier". La gestion des tableaux en Perl n'est pas encore pr�sente sur le site, mais j'esp�re bien le rajouter un jour.

3. 3. Lecture du fichier avec test

En effet, si vous essayer d'afficher un fichier qui n'existe pas, ce n'est pas top. Voici donc comment tester si le fichier existe ou non :

if (-f "test.txt") {

    open (RESU, "test.txt");

    while ($whole_line = <RESU>) {

        print "$whole_line";

    }

    close (RESU);

}

Vous remarquez que le code est tr�s tr�s compliqu� !
En fait, la structure conditionnelle "if" regorge de petites astuces pour faciliter la vie. Ainsi, le "if (-f ...)" permet de tester tr�s facilement l'existence d'un fichier.
Pour plus d'informations sur le "if", patienter un peu, j'y travaille...

4. Exemples d'�criture de fichier

4. 1. Exemple d'�criture dans un fichier

Voici un exemple d'�criture dans le fichier test.txt qui se trouve dans le r�pertoire courant :

open (NEWFICH, ">test.txt");

print NEWFICH "ligne 1\r\n";

$test = "ligne 2\r\n";

print NEWFICH $test;

close (NEWFICH);

Ce code comporte bien sur des similitudes avec le code de lecture, mais attention au ">" comme vous allez le voir :

La commande "Open" ouvre le fichier. Par contre, on remarque la pr�sence du ">". Ce ">" permet de dire que le fichier doit �tre ouvert en �criture. Son absence indique donc que le fichier est ouvert en lecture ! Ce mode d'ouverture cr�e le fichier s'il n'existe pas, et l'�crase s'il existe. Pour ajouter � la suite, utiliser le ">>" (exemple plus loin)
La commande "Print" permet d'�crire dans le fichier. Comme vous le constatez, le fonctionnement est le m�me que pour l'affichage � l'�cran, c'est � dire que vous pouvez �crire directement une cha�ne de caract�re, ou une variable.
Enfin, la commande "Close" qui sert toujours � terminer l'acc�s au fichier.

4. 2. Exemple d'�criture dans un fichier

Pour ajouter du texte dans un fichier :

open (NEWFICH, ">>test.txt");

print NEWFICH "ligne 1\r\n";

$test = "ligne 2\r\n";

print NEWFICH $test;

close (NEWFICH);

La diff�rence par rapport au code pr�c�dent r�side dans le ">>" au lieu de ">". Cette diff�rence permet d'ajouter du texte � la fin du fichier au lieu de l'�craser s'il existe d�j�.

4. 3. Exemple d'�criture directe dans un fichier

Voici un compl�ment qui vous permet de voir comment saisir une ligne au clavier et qu'elle soit mise dans le fichier voulu :

open (NEWFICH, ">test.txt");

print "Entrez la ligne � ajouter dans le fichier :\n";

$ligne_a_ecrire = <STDIN>;

print NEWFICH $ligne_a_ecrire."\r\n";

close (NEWFICH);

Ce code permet de faire saisir une ligne � l'utilisateur pour qu'elle soit ajouter dans le fichier.

5. Recherche de Fichier

Pour recherche des fichiers dans un r�pertoire (afin de renommer, ouvrir, effacer...), voici un exemple de code permettant de rechercher les fichiers d'un r�pertoire :

#!/usr/bin/perl

opendir(daemon,"/home/hobbesworld"); 

while ($supprfich = readdir(daemon)) { 

  print $supprfich."\n";
 
} 

closedir(daemon);

6. R�sultat de la fonction 'stat'

La fonction stat permet d'obtenir de nombreuses informations sur un fichier (taille, droits...). Mais, encore faut-il savoir l'utiliser. Ceci ne va donc pas �tre r�ellement une explication de l'utilisation de stats, mais plus pr�cisement quel genre de r�sultats la fonction peut renvoyer.
Voici donc un exemple de l'utilisation de stat :

($dev,$inode,$perm,$liens,$uid,$gid,$ndev,$lg,$acces,$mod,$cr,$blksize,$bl)=stat("test.txt");

print "dev = $dev\n";

print "inode = $inode\n";

print "perm = $perm\n";

print "liens = $liens\n";

print "uid = $uid\n";

print "gid = $gid\n";

print "ndev = $ndev\n";

print "lg = $lg\n";

print "acces = $acces\n";

print "mod = $mod\n";

print "cr = $cr\n";

print "blksize = $blksize\n";

print "bl = $bl\n";

Voici le retour d'un tel programme :

sous windows :

dev = 5

inode = 0

perm = 33206

liens = 1

uid = 0

gid = 0

ndev = 5

lg = 23

acces = 1035758351

mod = 1035733079

cr = 1035733069

blksize =

bl =

sous Unix :

dev = 772

inode = 1723075

perm = 33261

liens = 1

uid = 961

gid = 179

ndev = 999

lg = 615

acces = 1035759164

mod = 1035759151

cr = 1035759151

blksize = 4096

bl = 2

Page modifiée le : 02/05/2004
Site modifié le : 14/09/2020