Regrouper valeur répeter

Bonjour,

J'ai un fichier comme suit :
8921301415753523385|KEY|7110452091
8921301415753523385|LASTNAME|Abik
8921301415753523385|FIRSTNAME|mehamed
8921301415753523385|BIRTHDATE|19821029
8921301415753523385|IDTYPE|pc
8921301415753523385|IDNUMBER|12345
8921301415753523385|ADDRESS|cite zahaf 250n08 djelfa
8921301415753523385|WILAYA|17
8921301415763133720|KEY|7120338689
8921301415763133720|LASTNAME|Amrou
8921301415763133720|FIRSTNAME|abdedjabar
8921301415763133720|BIRTHDATE|19920610
8921301415763133720|IDTYPE|Pc
8921301415763133720|IDNUMBER|23456
8921301415763133720|ADDRESS|msila
8921301415763133720|WILAYA|28

Si vous avez remarquer, le premier champs contient des valeurs qui se répètent, et j'aimerai bien les regrouper en une seule ligne
Je cherche a avoir le résultat :
8921301415753523385|KEY|7110452091|LASTNAME|Abik|FIRSTNAME|mehamed|BIRTHDATE|19821029|IDTYPE|pc|IDNUMBER|12345|ADDRESS|cite zahaf 250n08 djelfa|WILAYA|17
8921301415763133720|KEY|7120338689|LASTNAME|Amrou|FIRSTNAME|abdedjabar|BIRTHDATE|19920610|IDTYPE|Pc|IDNUMBER|23456|ADDRESS|msila|WILAYA|28

J'ai tenté avec le script (qui ne marche pas) :

Code:

---

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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

#!/usr/bin/perl     use strict;   sub usage () { print STDERR "\nUsage : $0 fichier.txt file-ICCID \n"; exit(1); }     my $FicResult = "result.txt"; open(SORTIE, "> $FicResult") or die("Erreur lors de la creation du fichier $FicResult : $!\n");   open ICCID, "< $ARGV[1]" or die "Can't open file $ARGV[0]: $!"; open MarkOUT, "< $ARGV[0]" or die "Can't open file $ARGV[0]: $!";   my @MarkOUTLine; my @tab1; my @tab2; my @tab3; my @tab4; my @tab5; my @tab6; my @tab7; my @tab8; my %SDPHash; my $variccid; my $list;     while ( <ICCID> ) {   chomp; $variccid = $_; while (<MarkOUT>) {   @MarkOUTLine = split(/|/, $list); if ( exists $SDPHash { $MarkOUTLine[0] } ) { @tab1 = {$MarkOUTLine[1],$MarkOUTLine[2]}; @tab2 = {$MarkOUTLine[1],$MarkOUTLine[2]}; @tab3 = {$MarkOUTLine[1],$MarkOUTLine[2]}; @tab4 = {$MarkOUTLine[1],$MarkOUTLine[2]}; @tab5 = {$MarkOUTLine[1],$MarkOUTLine[2]}; @tab6 = {$MarkOUTLine[1],$MarkOUTLine[2]}; @tab7 = {$MarkOUTLine[1],$MarkOUTLine[2]}; @tab8 = {$MarkOUTLine[1],$MarkOUTLine[2]};   print SORTIE "$MarkOUTLine[0],$tab1[0],$tab1[1],$tab2[0],$tab2[1],$tab3[0],$tab4[1], $tab5[0],$tab6[1],$tab7[0],$tab7[1],$tab8[0],$tab8[1]\n";   } } }     close (MarkOUT); close (SORTIE); close (ICCID);

---

Pouvez vous SVP m'aidez sur la solution, je sais qu'il faut utiliser les hash, mais j'ai des difficultés a utiliser les hash.

Merci.

tout d'abord, utilise la balise code (le bouton #) pour afficher ton code, cela sera plus lisible.

Ensuite il te faut effectivement un hash de listes, avec ta première valeur comme clé, pour rassembler tes valeurs

quelque chose comme

Code:

---

1 2 3 4 5 6

my %data; ... while (<MarkOUT>) { my @MarkOUTLine = split(/\|/, $list); push @{$data{$MarkOUTLine[0]}}, ($MarkOUTLine[1], $MarkOUTLine[2]); }

---

ne pas oublier d'échapper le |

ensuite tu les affiches sur une ligne

Code:

---

1 2 3 4

foreach my $key (keys %data) { print SORTIE join("|",@{$data{$key}}),"\n"; }

---

Hope this helps !

Merci pour votre réponse, le script devient donc :

Code:

---

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 33 34 35 36

#!/usr/bin/perl   # Ce Script fait le découpage par lignes d'un grand fichier en plusieurs fichiers en petit morceaux   use strict;   sub usage () { print STDERR "\nUsage : $0 fichier.txt \n"; exit(1); }     my $FicResult = "result.txt"; open(SORTIE, "> $FicResult") or die("Erreur lors de la creation du fichier $FicResult : $!\n");   #open ICCID, "< $ARGV[1]" or die "Can't open file $ARGV[0]: $!"; open MarkOUT, "< $ARGV[0]" or die "Can't open file $ARGV[0]: $!";       my %data; my $list;   while (<MarkOUT>) { my @MarkOUTLine = split(/\|/, $list); push @{$data{$MarkOUTLine[0]}}, ($MarkOUTLine[1], $MarkOUTLine[2]); }     foreach my $key (keys %data) { print SORTIE join("|",@{$data{$key}}),"\n"; }   close (MarkOUT); close (SORTIE);

---

Mais le résultat est que des :

|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Bonjour,

J'ai pu rectifier le script que vous m'avez partager Mr Gardyen, et ça marche, merci bcp :P,

Voire ci-dessous :

Code:

---

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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

#!/usr/bin/perl       use strict;   sub usage () { print STDERR "\nUsage : $0 fichier.txt \n"; exit(1); }   if (scalar @ARGV != 1) { print STDERR "Error: this script need 1 argument\n"; usage(); }   my $file = $ARGV[0]; if ( ! -s $file ) { print STDERR "Error: file '$file' doesn't exist or has a 0 size\n"; usage(); }   if ( ! -r $file ) { print STDERR "Error: file '$file' can't be read\n"; usage(); } if ( -B $file ) { print STDERR "Error: file '$file' is a binary file. \n"; usage(); }   my $FicResult = "result.txt"; open(SORTIE, "> $FicResult") or die("Erreur lors de la creation du fichier $FicResult : $!\n"); open MarkOUT, "< $ARGV[0]" or die "Can't open file $ARGV[0]: $!";       my %data;   while (<MarkOUT>) { chomp; my @MarkOUTLine = split(/\|/, $_); push @{$data{$MarkOUTLine[0]}}, ($MarkOUTLine[1], $MarkOUTLine[2]); }     foreach my $key (keys %data) { print SORTIE $key."|".join("|",@{$data{$key}}),"\n"; }   close (MarkOUT); close (SORTIE);

---

Bonjour,

juste une petite remarque n'ayant pas de rapport direct avec ta question.

Tu utilises la syntaxe suivante:

Code:

---

1 2	sub usage () {

---

Ne mets pas de paires de parenthèses vides dans la définition, c'est une mauvaise idée; contente-toi de:

Code:

---

1 2	sub usage {

---

Les parenthèses crée un prototype pour ta fonction; ce n'est sans doute pas ton objectif, et tu ne devrais pas essayer de le faire à moins d'avoir une vraie bonne raison et de savoir réellement ce que tu fais.

Bonjour Lolo78,


C'est noté, merci ;)