fusion de deux tableaux avec perl Résolu

Question

Bonjour,

Je demarre la programmation perl avec deux problèmes :

1er problème la fusion de deux fichiers

fichier1

Numero;Nom
0001;toto
0002;titi
0003;tata

fichier2

numero;materiel
0001;Latitude D800
0001;HP 2200
0001;scanner HP
0002; Maestro 191
0002;iMedia 9668 
0003;SW86-P-012

le fichier final "fusion" devra donner ceci :

numero;nom;materiel
0001;toto;Latitude D800
0001;toto;HP 2200
0001;toto;scanner HP
0002;titi;Maestro 191
0002;titi;iMedia 9668 
0003;tata;SW86-P-012

2ème problème :
Le but final du fichier fusionné est de transformer les doublons en colonne supplémentaire comme suit :

numero;nom;materiel1;materiel2;materiel3
0001;toto;Latitude D800;HP 2200;scanner HP
0002;titi;Maestro 191;iMedia 9668 ;
0003;tata;SW86-P-012

Merci d'avance à vous tous.

Denis

lami20j · Answer

Salut,

tu peux obtenir le fichier final directement (je n'ai pas testé :-)

#!/usr/bin/perl
use strict;use warnings;

open FIC1,"fichier1" or die "E/S : $!\n";
open FIC2,"fichier2" or die "E/S : $!\n";
open RES,">fusion"   or die "E/S : $!\n";
my %h;

while(<FIC1>){
  next unless /^\d/;
  /(.*);(.*)/;
  push @$h{$1}},$2;
}

while(<FIC1>){
  next unless /^\d/; 
  /(.*);(.*)/;
  push @{$h{$1}},$2;
}

print RES "numero;nom;materiel1;materiel2;materiel3\n";
foreach my $k(sort keys %h)'
  print RES "$k", map { ";$_" } @{$h{$k}}, "\n";
}

lami20j · Answer

Re,

 Est ce que je peux mettre @{$h{$1}},$2,$3. 
la syntaxe est push TABLEAU,LISTE
donc tu peux écrire 
push  @{$h{$1}},($2,$3)


C'est vrai que dans tous les exemples que j'ai vu pour le moment, la structure est : 
%h=(cle1=>valeur1, 
cle2 =>valeur2)

Ici il s'agit d'un hash de tableaux ou chaque clé a comme valeur un tableau anonyme

%h = {
              cle1 => [...],
              cle2 => [...],
};donc 
$h{cle1} = [....];est comme pour le tableau on utilise @ et le nom de tableau c'est la clé alors je peux écrire
@{$h{cle1}} pour traiter les éléments du tableau

lami20j · Answer

Salut,

affiche ton script, avec les modifications

deniss92 · Answer

Voici le script

#!/usr/bin/perl
use strict;use warnings;

open FIC1,"fichier1" or die "E/S : $!\n";
open FIC2,"fichier2" or die "E/S : $!\n";
open RES,">fusion1" or die "E/S : $!\n";
my %h;

while(<FIC1>){
next unless /^\d/;
/(.*);(.*)/;
push @{$h{$1}},($2,$3,$4,$5);
}
while(<FIC2>){
next unless /^\d/;
/(.*);(.*)/;
push @{$h{$1}},$2;
}

print RES "numero;nom;materiel1;materiel2;materiel3;observation\n";
foreach my $k(sort keys %h){
print RES "$k", map { ";$_" } @{$h{$k}}, "\n";
}

lami20j · Answer

Salut,

c'est normal
pour chaque capture donc (.*) une variable sera remplie
dans ton cas tu n'as que $1 et $2

pour avoir
$3, $4, $5
il faut écrire
while(<FIC1>){ 
next unless /^\d/; 
/(.*);(.*);(.*);(.*);(.*)/; 
push @{$h{$1}},($2,$3,$4,$5); 
}

deniss92 · Answer

Ok 

Merci  de ta gentillesse.
@+

Fusion de deux tableaux avec perl

6 réponses

Discussions similaires

Newsletters