Bonjour,
Je traivaille sur Perl.
Je cherche à extraire une chaine de caractère d'un txt.
La forme de mon txt est comme suit:
De ce fichier, je veux créer deux autres txt. Un qui concerne les receptions et un autre les types.INFO : Close File........................
Reception................
.....
FIN IMPORT...................
INFO : Close File........................
Type................
.....
FIN IMPORT...................
FICHIER TYPE:
FICHIER RECEPTION:INFO : Close File........................
Type ................
.....
FIN IMPORT...................
INFO : Close File........................
Type................
.....
FIN IMPORT...................
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
Partager