Discussion :

[jpierre34]

Bonjour ,


Ma question est probablement basic pour vous mais voila, je suis en train d'apprnedre PERL en auto didacte et je me heurte à mom premier bémol :

lorsque j'essaye d'ouvrir un fichier avec un descripteur , ça ne marche pas

exemple :

1 )

Code :

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

1
2
3
4
5
6
#!/usr/bin/perl
open (ENTREE, ">>test.txt");
while (<ENTREE>) {
print;
}
close (ENTREE);

2)

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
print "Bonjour\n";
open (F , ' >> test.txt');
$i=0;
while (<F>) {
print;
     $i++;
}
close F;

je n'obtient rien .

ma version de Perl est la "This is perl, v5.8.0 built for i386-linux-thread-multi"

Merci de votre aide

[Arioch]

Bonjour,

il y a une faute dans ton 2eme code :

Code :

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

open (F , ' >> test.txt');

Tu cherches à ouvrir un fichier s'appelant " >> test.txt" alors que je suppose que tu voulais ouvrir en mode mise à jour le fichier test.txt, ce qui donnerait plutôt ceci :

Code :

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

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

Et comme j'aime bien savoir si ce que je demande d'ouvrir comme fichier l'est bel et bien, je te propose même ceci :

Code :

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

open (F , ">>test.txt") or die ("impossible d'ouvrir test.txt : $!");

Toujours vérifier que ce que tu ouvres comme fichier l'est vraiment, tel que mon exemple ci-dessus le montre. D'ailleurs, en rajoutant un die(), tu aurais eu la puce à l'oreille sur la nature du problème...

[Jedai]

Le plus propre est d'utiliser la version de open à 3 arguments (fonctionne à partir de la 5.6) et un handle lexical (fonctionne bien à partir de la 5.6.1) :

Code :

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

1
2
open my($file) , '>>', 'test.txt'
  or die "impossible d'ouvrir test.txt : $!\n";

Le open à 3 arguments évite les confusions comme celle à l'origine de ce message et permet d'utiliser des caractères quelconques dans le nom du fichier, le handle lexical limite les risques de conflits de variables (car les HANDLE sont globaux) et les risques de fuites de ressources (dès que le handle lexical n'est plus référencé le fichier est automatiquement fermé, même si on a oublié le close()).

--
Jedaï

[jpierre34]

Merci pour ta réponse mais le résultat ne donne pas ce que j'attendais.

Je croyais que ce script me permetrait de mettre à jour le fichier test.txt mais au lieu de cela ou

pour le 2eme exemple :
il ajoute une ligne apres le prompt mais n'ouvre pas le fichier

pour le 1er exemple ( avec open (ENTREE, ">>test.txt");
rien n'a été changé

[Arioch]

J'ai du mal à comprendre ce que tu veux dire exactement...

Qu'est-ce que tu cherche à faire ?

[Jedai]

Je remarque que tu ouvres le fichier en mode d'ajout '>>' mais que tu essaies de le lire... Ca ne risque pas de marcher !
Je te conseille de consulter notre FAQ, d'abord la section de base sur les fichiers, puis la section avancée sur la modification de fichier (si c'est bien ce que tu veux faire).

--
Jedaï

[jpierre34]

j'essaie d'ouvrir le fichier en lecture et en écriture


open my($file) , '>>', 'test.txt'
or die "impossible d'ouvrir test.txt : $!\n";
$i=0;
while (<F>) {
print;
$i++;
}
close F;

print "Nombre de lignes : $i\n";


au lieu de cela voila ce que j'obtiens sur unix :
Bonjour
Nombre de lignes : 0

Pourtant mon fichier (test.txt) n'ai pas vide

et avec active perl windows
C:\Documents and Settings\moncompte\PERL2009>perl desc-2-bon.pl
Bonjour
Nombre de lignes : 0

C:\Documents and Settings\moncompte\PERL2009>

On voit bien qu'il y à un retour chariot entre le "Nombre de ligne :0" et le prompt mais je n'ai pas la main sur le fichier test.txt
(a propos mon PERL windows lui est en
This is perl, v5.10.0 built for MSWin32-x86-multi-thread )

Alors je cale : pourrais tu l'essayer et me dire si tu accède à ton fichier en écriture ?

Merci de ton aide