FAQ PerlConsultez toutes les FAQ

Dans les précédentes parties, vous avez conçu vos programmes Perl pour que ceux-ci puissent converser via les entrées/sorties (E/S) standard à savoir : STDIN (le clavier), STDOUT (la console) et STDERR (sortie standard en cas d'erreur).
Dans ce chapitre, nous allons maintenant apprendre à lire à partir des fichiers stockés sur un média (disque dur, CDROM, disquette...). Le langage Perl nécessite pour la lecture/écriture de fichiers des handles.
Un handle n'est qu'une connexion entre votre programme Perl et le fichier à lire ou à écrire. Il existe déjà six handles de fichiers réservés : STDIN (soit le flux d'entrée standard), STDOUT (flux de sortie standard), STDERR (direction des erreurs), DATA, ARGV et ARGVOUT.

Vous lirez dans certaines documentations le mot "file handle". Il correspond tout simplement à un identifiant du fichier après ouverture, une sorte de descripteur du fichier.

Rien ne vous empêche dans Perl de créer et nommer vos propres descripteur de fichier (filehandle)s. De même, les connaisseurs d'Unix seront sans doute ravis de savoir que les redirections d'entrées/sorties standards sont primordiales pour indiquer au descripteur de fichier (filehandle) la direction du flux. Voici d'ailleurs un exemple pour illustrer l'ouverture d'un fichier en Perl. Nous supposerons qu'il existe dans le même répertoire que notre script un fichier "toto.txt" :

open my $fh, '<', "toto.txt";

1
2
$chemin = "/home/gldavid/toto.txt"; 
open my $fh, '<', $chemin;

1
2
open my $fh, '>', "toto.txt"; 
open my $fh, '>>', "tata.txt";

1
2
3
open my $fh, '>>', "toto.txt"; 
#Je lis le fichier toto.txt et j'exécute mon traitement 
close($fh);

Naturellement, il se peut que vous vous trompiez dans le chemin de votre fichier. Pour le cas où vous souhaitez gérer de telles exceptions, Perl vous offre le choix de tuer votre application et de pouvoir disposer d'un message d'erreur. La close die produit un tel message :

1
2
3
4
open FILE, "< toto.txt" or die "toto.txt n'existe pas !\n"; 
while ($ligne = <FILE>) { 
print "$ligne\n"; 
}

open FILE, "< toto.txt" or warn "toto.txt n'existe pas !\n";

Perl vous autorise à avoir accès au moindre renseignement de vos fichiers. Le tableau suivant résume les différents tests possibles en Perl sur les fichiers :

1
2
3
4
$file = "/home/gldavid/toto.txt"; 
if ( -e $file ) { 
  OPEN FILE, "< $file" or die "Un problème est survenu pendant l'ouverture du fichier !\n"; 
}

1
2
3
4
5
6
7
$file = '/home/gldavid/toto.txt'; 
OPEN FILE, "< $file" or die "Un problème est survenu pendant l'ouverture du fichier !\n"; 
if ( -M FILE > 15 ) { 
  close FILE; 
  unlink $file; 
  print "$file supprimé\n"; 
}

1
2
my $fichier = "/home/djibril/fichier.txt"; 
if ( -e -f $fichier ) { print "Le fichier $fichier existe"; }

1
2
3
4
my $chemin = '/home/gldavid/toto.txt'; 
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $block) = stat $chemin; 
# L'équivalent serait : 
# @infos = stat $chemin;

• Les inodes (contraction de "index" et "node"; en français : nœud d'index) sont des structures de données contenant des informations concernant les fichiers stockés dans certains systèmes de fichiers, ce sont le centre de tous les échanges entre le disque et la mémoire ;
• set Group ID ;
• Set User ID ;
• Le sticky bit donne le droit de manier de façon plus subtile les droits d'écriture d'un fichier. En effet, un droit d'écriture signifie que l'on peut modifier et supprimer le fichier. Le sticky bit permet de faire la différence entre les deux.
  

Se déplacer dans une arborescence de répertoires sous Perl est tout aussi simple que dans un système Unix. Bien entendu, vous pourriez avoir recours à un appel système mais Perl vous fournit la commande vous permettant de vous déplacer où bon vous semble

1
2
3
$chemin = '/home/gldavid/documents'; 
chdir $chemin; 
chdir '/home/2Eurocents/ultra_secrets';

Ouvrir un répertoire n'est pas plus difficile que d'ouvrir un fichier. Encore une fois, nous aurons recours au handle, ces précieux médias de communication entre votre programme Perl et vos fichiers/répertoires. Mais, tout comme les handles de fichiers, n'oubliez jamais de fermer vos handles de répertoires :

1
2
3
4
5
6
7
8
9
my ( $nbrep, $nbfic, $fichier, $dossier ) = ( 0, 0, undef, '/home/gldavid/perl' ); 
opendir my $dir, $dossier or die "$dossier n'existe pas !"; 
my @files = readdir $dir; 
foreach $fichier (@files) { 
  if ( -f "$dossier/$fichier" ) { $nbfic++; } 
  if ( -d "$dossier/$fichier" ) { $nbrep++; } 
} 
closedir $dir; 
print "Il y a $nbfic fichier(s) et $nbrep répertoire(s) dans $dossier.\n";

Perl vous donne une fonction qui vous permettra d'effacer un fichier, pourvu que vous en soyez propriétaire :

1
2
3
$fichier = "/home/gldavid/toto.txt"; 
unlink $fichier; 
unlink '/home/gldavid/secrets_gnux/faq.html';

1
2
3
unlink $fichiers; 
unlink $fichier1, $fichier2, $fichier3; 
unlink glob '*.mp3';

Etes-vous anglophone ? Dans le domaine de l'informatique, cela peut vous être utile. En effet, pour renommer des fichiers, vous aurez recours à la fonction... rename !

1
2
3
4
$oldfile = '/home/gldavid/toto.txt'; 
$newfile = '/home/gldavid/tata.txt'; 
rename $oldfile, $newfile; 
rename '/home/gldavid/tata.txt', '/home/gldavid/titi.txt';

Les unixiens ne sont vraiment pas dépaysés avec Perl ! La création de répertoires nécessite l'appel de la fonction mkdir. Pour supprimer un répertoire, vous aurez naturellement recours à la fonction rmdir si votre répertoire cible est vide de tout fichier :

1
2
3
4
5
mkdir '/home/gldavid/dossier'; 
rmdir '/home/gldavid/dossier'; 
$dossier = '/home/gldavid/perl'; 
mkdir $dossier; 
rmdir $dossier;

Au chapitre des commandes Unix se retrouvant dans Perl pour la gestion des fichiers, on retrouve notamment la commande chmod qui permet de modifier les permissions de lecture, écriture, exécution d'un fichier.

chmod 0755, "/home/gldavid/toto.txt";

• la lecture a un poids de 4 ;
• l'exécution a un poids de 1 ;
• l'écriture un poids de 2.
  

chown "GLDavid", "root", /home/gnux/faq.html;

Depuis Perl 5.8, il est possible et recommandé d'ouvrir les fichiers d'une façon beaucoup plus propre et moins sujette à des erreurs :

• utilisez des handles lexicaux (ou indirect) ;
• utilisez la syntaxe open à trois arguments ou bien le module IO::File.
  

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $fichier  = './MonFichier.txt'; 
my $fichier2 = './MonFichier2.txt'; 
  
# Lecture du fichier 
open my $FH, '<', $fichier or die "Impossible de lire $fichier"; 
  
#... 
#... 
close $FH or die "Impossible de fermer $fichier"; 
  
# Ecrire dans un fichier 
open my $FH2, '>', $fichier2 or die "Impossible d'écrire dans $fichier2"; 
print {$FH2} "Mon premier test\n"; 
close $FH2 or die "Impossible de lire $fichier2";

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use IO::File; 
  
my $fichier  = "./MonFichier.txt"; 
my $fichier2 = "./MonFichier2.txt"; 
  
# Lecture du fichier 
my $FH = new IO::File $fichier, '<' or die "Impossible de lire $fichier"; 
  
#... 
#... 
close $FH or die "Impossible d'écrire dans $fichier"; 
  
# Ecrire dans un fichier 
my $FH2 = new IO::File $fichier, '>' or die "Impossible d'écrire dans $fichier2"; 
print {$FH2} "Mon premier test\n"; 
close $FH2 or die "Impossible d'écrire dans $fichier2";