Discussion :

[flongo]

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

[djibril]

votre message est illisible, merci de lire les règles du forum la prochaine fois.

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
#!/usr/bin/perl
use warnings;
use strict;
 
my $FichierInput = 'P:/Prog_perl/Infos_pivot1.txt';
my $FichierOutput = 'P:/Prog_perl/Tab1_type.txt';
 
open ( FICHIER, '<', $FichierInput ) 
  or die ("Ce fichier $FichierInput n'existe pas!"); 
 
open (WRITER, '>', $FichierOutput) 
  or die ("Le fichier $FichierOutput ne peut etre édité!"); 
 
while ( my $Ligne = <FICHIER> ) {
  $Ligne =~ s{Type}{Reception}gi;
  print WRITER $Ligne;
}
 
close(FICHIER);
close(WRITER);
 
__END__

[flongo]

votre message est illisible, merci de lire les règles du forum la prochaine fois.

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
#!/usr/bin/perl
use warnings;
use strict;
 
my $FichierInput = 'P:/Prog_perl/Infos_pivot1.txt';
my $FichierOutput = 'P:/Prog_perl/Tab1_type.txt';
 
open ( FICHIER, '<', $FichierInput ) 
  or die ("Ce fichier $FichierInput n'existe pas!"); 
 
open (WRITER, '>', $FichierOutput) 
  or die ("Le fichier $FichierOutput ne peut etre édité!"); 
 
while ( my $Ligne = <FICHIER> ) {
  $Ligne =~ s{Type}{Reception}gi;
  print WRITER $Ligne;
}
 
close(FICHIER);
close(WRITER);
 
__END__

Merci d'avoir répondu si vite!
Je m'excuse d'avoir écrit un méssage illisible.

J'ai essayé votre code mais le probleme c'est qu'il remplace dans mon txt tous les mots "type" par "reception".
Cela peut venir de quoi?

[Jasmine80]

J'ai essayé votre code mais le probleme c'est qu'il remplace dans mon txt tous les mots "type" par "reception".
Cela peut venir de quoi?

cela vient de la ligne

Code :

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

$Ligne =~ s{Type}{Reception}gi;

FAQ Remplacement et substitution

[flongo]

cela vient de la ligne

Code :

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

$Ligne =~ s{Type}{Reception}gi;

FAQ Remplacement et substitution

OK.Je me suis mal exprimé:
Je veux pas qu'il remplace le mot type par reception.

Je veux qu'en faite que des qu'il voit le mot "type" ou "reception" dans ce fichier :

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

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

il me crée un txt pour:

TYPE

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

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

et un autre txt pour

RECEPTION

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

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

[Jasmine80]

OK.Je me suis mal exprimé:
Je veux pas qu'il remplace le mot type par reception.
Je veux qu'en faite que des qu'il voit le mot "type" ou "reception" dans ce fichier il me crée un txt pour...

Code :

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

1
2
3
4
5
6
7
8
9
while ( my $Ligne = <FICHIER> ) {
  if ($Ligne =~ m/Type/i){
	# traitement
  }
  if ($Ligne =~ m/Reception/i){
	# traitement  
  }	  
 
}

Pour le second if, utilise un elsif si tu ne peux par retrouver sur la même ligne les mots type et réception.