Discussion :

[astrid123]

Bonjour,

J'ai un fichier très simple en txt : Bonjour ..., Bonjour......à titre d'exercice
J'ai écrit ce script mais j'ai le message suivant quand je cherche à compiler : Filehandle FILE opened only for output at colonne.pl (mon fichier perl) line 9
et je ne comprends vraiment pas pourquoi. pas besoin de vous dire que je suis débutante ! Un coup de main serait apprécié

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/env perl
#
use strict;
use warnings;
my $fic='/home/helene/Bureau/colonne1.txt';
 
open (FILE,">",$fic);
 
while (my $ligne = <FILE>)
 
{
 
if ($ligne =~/jour/)
   { 
 
$ligne=~ s/jour/soir/;
 
print FILE $ligne;
   }
}
close (FILE)

Merci d'avance,

H.

[Lolo78]

Bonjour,

la syntaxe:

Code :

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

1
2
 
open (FILE,">",$fic);

est destinée à ouvrir un fichier en écriture, et non en lecture. Pour ouvrir un fichier en lecture, il faut inverser le sens de la "flèche":

Code :

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

1
2
 
open (FILE,"<",$fic);

Cette correction devrait suffire à faire fonctionner ton programme, mais il est préférable d'utiliser un filehandle lexical et de tester si l'opération d'ouverture de fichier a réussi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/env perl
 
use strict;
use warnings;
my $fic = '/home/helene/Bureau/colonne1.txt';
 
open my $FILE, "<" , $fic or die "Ouverture impossible de $fic $!";
 
while (my $ligne = <$FILE>) { 
    # ...
    print $FILE $ligne;
}
close $FILE;

[astrid123]

Bonsoir,

j'ai réutilisé le code donné ci-dessus mais ça ne marche pas. Par contre quand j'ajoute un fichier de sortie, ça marche tout à fait.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/env perl
#
use strict;
use warnings;
 
my $fic='/home/.....colonne1.txt';
my $sel='/home/...../fichiersortie.txt';
 
open my $FILE, "<" , $fic or die "Ouverture impossible de $fic $!";
open my $FICHIER,">", $sel;
 
while (my $ligne = <$FILE>)
 
{
 
if ($ligne =~/jour/)
 { 
 
$ligne=~ s/jour/soir/;
 
print $FICHIER $ligne;
 }
}
close $FILE;
close $FICHIER;

Merci d'avoir jeté un oeil à mon code de débutante !
H.

[Lolo78]

Oh oui, j'étais vraiment très distrait quand je t'ai répondu et n'avais juste pas fait attention que ton programme essayait d'écrire dans le lême fichier que le fichier en entrée. Il faut évidemment lire un fichier et écrire dans un autre fichier et ceci est vrai essentiellement avec tous les langages de programmation.

(A vrai dire, il est théoriquement possible dans certains cas de lire et d'écrire sur le même fichier, mais ce n'est franchement pas recommandé car, si tu ne sais pas exactement ce que tu fais, toute écriture risque d'effacer le contenu du fichier que tu lis. Il existe cependant une option Perl permettant de remplacer de façon relativement fiable le contenu d'un fichier par une autre contenu, mais ce n'est pas ta question.)