Discussion :

[étoile de mer]

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
use strict;
use warnings;
use autodie;
my $out = "result2.txt";
open my $outFile, ">$out" or die $!;
my %permitted = do {
  open my $fh, '<', 'f1.txt';
  map { /(.+?)\s+\(/, 1 } <$fh>;
};
 
open my $fh, '<', 'f2.txt';
while (<$fh>) {
  my ($phrase) = /(.+?)\s+->/;
 
 
  if ($permitted{$phrase}) { 
print $outFile <$fh>;}
}
close $outFile;

J'ai un probleme d'ecriture de la ligne du fichier f2 dans un fichier resultat
l'erreur est là :

Code :

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

print $outFile <$fh>;}

Une idée svp?
Merci

[Lolo78]

Essaie ceci:

Code :

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

print $outFile $_;

[étoile de mer]

Merci Lolo, ca marche