Bonjour,

mon script ne fonctionne plus
le fichier resultat final est crée mais il reste vide. aucun fichier resultat_XXXXXX.txt ne sont crées. Quelqu'un peut'il m'aider svp ?

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
26
27
28
29
30
31
32
33
34
35
36
#!C:/Perl/bin/perl.exe
use warnings;use strict;
 
my @fic_stat = <"D:/Documents and Settings/M406742/Bureau/Simon/DB/XITI/Sem 10 07/stat*">;
 
 
foreach my $fichier (@fic_stat){
  $fichier =~ /\/statXiti_(\d{4})(\d\d)\.txt/;
  my $date = "20${1}$2";
 
  my $fic = "resultat_" . "$date.txt";
 
  open F_ECRIRE,">>$fic" or warn "E/S : $!\n";
  open F_LIRE,"$fichier" or warn "E/S : $!\n";
 
  while(<F_LIRE>){
    s/^/$date = /;
    print F_ECRIRE;
  }
}
#*********** FIN TRAITEMENT **********#
#
# concateantion dans resultatfinal.txt
open F_ECRIRE,">>resultatfinal.txt" or die "E/S : $!\n";
 
 
my @fic_res = <"D:/Documents and Settings/M406742/Bureau/Simon/DB/XITI/Sem 10 07/resultat_*.txt">;
 
foreach my $e(@fic_res){
  open F_LIRE,"$e" or warn "E/S : ICI $!\n";
  while(<F_LIRE>){
    print F_ECRIRE;
  }
  print F_ECRIRE "\n";
}
__END__