Discussion :

[Yeswecan]

Bonjour à toutes et tous,

Je voudrais transformer, par un script perl,

ceci:

Flag
Léon
Blabla

Flag
FATIM Zhara
bli BLI

Flag
Jean STANISLAS dit ChArLeS
BLU bLop

en cela (Tableau à 2 colonnes, que je ne parviens pas à représenter ici)

Le but est d'intégrer ces données dans une table Access.

Exprimé autrement, je voudrais que:

Le contenu de la ligne qui suit chaque Nom et/ou Prénom soit transféré à côté de ce Nom et/ou prénom.




Léon Blabla

FATIM Zhara bli BLI

Jean STANISLAS dit ChArLeS BLU bLop



Pourriez vous me conseiller ?

Merci.

A bientôt.

Roland - Bruxelles.

[iblis]

Une façon de faire :

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
#!/usr/bin/perl
use strict; use warnings;
 
while(<DATA>) {
  if (my $flag = /^Flag$/ .. /^$/) {
    s/\n/ / unless $flag =~ /E0$/;
    print   unless $flag =~ /^1$/;
  }
}
 
__DATA__
Flag
Léon
Blabla
 
noise
noise
 
Flag
FATIM Zhara
bli BLI
 
Flag
Jean STANISLAS dit ChArLeS
BLU bLop

On teste si on est bien entre les balises choisies (/^Flag$/ pour le début et ligne vide /^$/ pour la fin) avec l'opérateur .. qui fonctionne comme un interrupteur à bascule qui est faux (vide puis nul) hors des balises et vrai dedans (où il maintient un compteur et un indicateur de fin).

Ensuite, on remplace les \n par " " pour toutes les lignes sauf la dernière. On ignore la première ligne (là où le compteur vaut 1).

Regarde perldoc perlop pour le détail sur le range operator (..).

[Yeswecan]

Cher Iblis,

Mille mercis pour votre aide précieuse.

Cela m’a permis d’écrire un petit script qui correspond plus à ma demande.

Il n’est pas tout à fait élégant, il reste un « Balise » au début du fichier de
sortie et un « Balise » de moins à la fin de ce fichier.

Je ne vais pas en faire un drame, je suis déjà tout content comme cela.

Merci encore.

Portez vous bien.

Roland – Bruxelles.

-----------------

Mon fichier "entrée" se nomme : lignes.txt

BALISE
Nom_A
Adresse_A
Tel_A
BALISE
Nom_B
Adresse_B
Tel_B
BALISE
Nom_C
Adresse_C
Tel_C

Le script est:

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
use strict;
use warnings;
 
my $line;
 
open FICHIER,"< lignes.txt" or die "Le fichier n'existe pas !";
open WRITER,"> colonnes.txt" or die "Le fichier ne peut être édité !\n";
 
my $i = 0;
 
while (my $line =<FICHIER>) {
 
	if ($line=~/BALISE/){
 
		$i=0;
 
	}
	 elsif ($i<=3) {
 
		$line =~ s/\n/\t/;
	 }   
 
	print  "$line" ; 
 
	print WRITER "$line";
 
++$i; 
 
}
 
close FICHIER;
close WRITER;

Le fichier "résultat" se nomme : colonnes.txt

BALISE
Nom_A Adresse_A Tel_A BALISE
Nom_B Adresse_B Tel_B BALISE
Nom_C Adresse_C Tel_C

A bientôt.