Discussion :

[Piccolupo13]

Bonjour à tous,

Je ne connais pas encore toute les possibilités offertes par Perl, et j'aurais besoin d'aide svp concernant un problème de traitement de fichier texte via un script Perl (et uniquement en Perl).

Mon fichier texte (il s'agit d'un lexique) se présente sous la forme suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
fait    ADJ     fait
faites  VER:conj        faire
faite   VER:pper        faire
fait    NOM     fait
faitout NOM     faitout
faitouts        NOM     faitout
faits   VER:pper        faire
fait    VER:conj        faire
fait    VER:pper        faire
etc.

(NB : les blancs entre les colonnes sont des tabulations.)

J'aimerais dans un premier temps pourvoir opérer un tri sur la première colonne, c-à-d obtenir l'affichage suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
fait    ADJ     fait
fait    NOM     fait
fait    VER:conj        faire
fait    VER:pper        faire
faite   VER:pper        faire
faites  VER:pres        faire
faits   VER:pper        faire
faitout NOM     faitout
faitouts        NOM     faitout

ensuite mon problème principal est le suivant: si j'ai une ligne où l'élément de la première colonne est répété
(dans mon exemple :

Code :

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

1
2
3
4
fait    ADJ     fait
fait    NOM     fait
fait    VER:conj        faire
fait    VER:pper        faire

)
j'ai besoin de regrouper ces lignes en ne gardant que le mot de la première colonne mais en conservant les informations des colonnes 2 et 3 (des autres lignes) sur la première ligne, afin d'obtenir le format suivant (les blancs devant toujours être des tabulations) :

Code :

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

fait    ADJ     fait	NOM     fait	VER:conj        faire	VER:pper        faire

et j'ai besoin de faire ça dans tout mon fichier à chaque fois que ce cas de figure se présente (avec d'autres mots que "fait"), le tout dans un script...

Pour l'instant j'en suis là :

Code :

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

1
2
3
4
5
6
#!/usr/bin/perl -w
while(<>)
{
 
}
...

Je ne sais pas si je suis suffisamment clair, mais si quel'qu'un a une piste pour réaliser ça, ce serait sympa...
Un grand merci d'avance pour vos suggestions !

Amicalement,

Piccolupo 13

[Jedai]

Pour l'instant j'en suis là :

Code :

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

1
2
3
4
5
6
#!/usr/bin/perl -w
while(<>)
{
 
}
...

C'est un peu léger... Normalement, on attend d'un demandeur qu'il fasse un peu plus d'effort, mais je suis de bonne humeur et ton problème est assez simple, je vais donc te donner une solution basé sur ce que j'ai compris (bien qu'il y ait quelques imprécisions, par exemple l'ordre dans la deuxième partie de ton programme).

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
#! /usr/bin/env perl
use strict; use warnings;
 
my %dict;
while( <> ) {
   chomp;
 
   # on découpe la ligne selon les tabulations
   my @fields = split /\t/;
   # on met le premier champ dans $name et on le retire de @fields
   my $name = shift @fields;
   # on rajoute @fields à la liste des définitions associé à $name
   push @{$dict{$name}}, @fields;
}
 
for my $name (sort keys %dict) {
   print "$name\t", (join "\t", @{$dict{$name}}), "\n";
}
__END__

--
Jedaï

[Piccolupo13]

Bonsoir Jedaï,

Merci beaucoup pour ta réponse rapide malgré mes maigres efforts c'est vrai...
Pour ma prochaine demande je me creuserai plus la tête avant de poster

Encore merci,



Piccolupo13