Discussion :

[cathou9999]

Bonjour,

J'écris un programme qui ouvre et ferme des fichiers qui existent ou non. Si le fichier n'existe pas, je ne voudrais pas arrêter le programme comme par exemple:

open FILE, "monFichier.txt" or die $!;

je voudrais juste :

open FILE, "monFichier.txt";
while ($tmpLigne = <FILE>){
traitement......
}
close(FILE);

Le problème c'est quand le fichier n'existe pas, le 'close' déclenche l'erreur suivante: readline() on closed filehandle.

Savez vous comment vérifier si le fichier existe et ouvert pour qu'on le ferme sans erreur ?

merci d'avance

Cathy

[Jasmine80]

STP, utilise les balises CODE pour encadrer ton code

pour vérifier l'existence d'un fichier, tu peux utiliser -e

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use strict;
 
 
my $file = "monFichier.txt";
 
# vérification de l'existence du fichier
if (-e $file){
	open my $fh, '<', $file or die $!;
	while ( my $tmpLigne = <$fh>){
 
	}
	close $fh;
}

Mais si ton fichier n'existait pas tu aurais eu un message d'erreur lors de l'ouverture du genre 'file doesn't exist'

Ici, le problème est que le filehandle n'est pas ouvert

[s.n.a.f.u]

Le problème c'est quand le fichier n'existe pas, le 'close' déclenche l'erreur suivante: readline() on closed filehandle.

Bonjour,

Ce n'est pas l'instruction close qui lève l'erreur, mais bien l'instruction <FILE> qui correspond à une lecture de ligne. Cette lecture se faisant sur un descripteur non ouvert, il y a erreur.

[Philou67430]

Pour être plus précis, et vérifier que le fichier est "lisible" (readable), tu peux utiliser l'opérateur -r au lieu de -e (un fichier peut exister, mais être protégé en lecture).