Bonjour,

Je traivaille sur Perl.

Je cherche à extraire une chaine de caractère d'un txt.
La forme de mon txt est comme suit:

INFO : Close File........................
Reception................
.....
FIN IMPORT...................

INFO : Close File........................
Type................
.....
FIN IMPORT...................
De ce fichier, je veux créer deux autres txt. Un qui concerne les receptions et un autre les types.

FICHIER TYPE:

INFO : Close File........................
Type ................
.....
FIN IMPORT...................

INFO : Close File........................
Type................
.....
FIN IMPORT...................
FICHIER RECEPTION:


J'ai fait ce code mais ca marche pas comme je veux:

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
open FICHIER,"<P:\\Prog_perl\\Infos_pivot1.txt" 
or die "Ce fichier n'existe pas!"; 
 
open WRITER, ">P:\\Prog_perl\\Tab1_type.txt" 
or die "Le fichier ne peut etre édité!"; 
 
$ligne =<FICHIER> ; 
 
foreach ($ligne) { 
if (substr($ligne,48)="Reception"){ 
print WRITER; 
} 
} 
 
__END__


Quelqu'un peut il m'aider svp?
Merci d'avance