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