Discussion :

[sousou_]

Bonjour tlm,

Je veux fusionner trois fichiers FIC1, FIC2, FIC3 en un seul RES
avec FIC1 contient:

Code :

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

1
2
Hello 
Bye

FIC2:

Code :

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

1
2
3
 
Hi
By

FIC3:

Code :

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

1
2
3
4
5
Hi Bonjour 0.23
Hi Salut 0.43
Hi Slt 0.42
By aurevoir 0.23
By bonsoir 2.3

Je veux obtenir

Code :

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

1
2
3
4
5
6
 
Hello Hi Hi Bonjour 0.23
Hello Hi Hi Salut 0.43
Hello Hi Hi Slt 0.42
Bye By By aurevoir 0.23
Bye By By bonsoir 2.3

J'obtiens pas le bon résultat
voici mon code

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
open FIC1,$bw or die "E/S : $!\n";
open FIC2,$sattsf or die "E/S : $!\n";
open FIC3,$wrd or die "E/S : $!\n";
open RES,">$res/unk/unk.pl.all"   or die "E/S : $!\n";
my %hs;
 
while(<FIC1>){
    next unless /^\w/;
  /(.*)/;
    push @{$hs{$1}},$1;
}
 
while(<FIC2>){
    next unless /^\w/;
  /(.*)/;
push @{$hs{$1}},$1;
}
 
while(<FIC3>){
    next unless /^\w/;
    /(.*)\s(.*)\s(.*)/;
    push @{$hs{$1}},($2,$3);
 
}
foreach my $k(sort keys %hs){
    print "k = $k , rest @{$hs{$k}}\n";
  print RES "$k", map { "$_" } @{$hs{$k}}, "\n";
}
close RES;
close FIC1;
close FIC2;
close FIC3;

[michon]

en dehors de Perl, tout d'abord peut-tu expliquer ta logique de combinaison de tes 3 fichiers ? car j'ai beau lire ce que tu veux obtenir, je ne vois pas trop ta logique...

une fois cela éclaircie tu auras surement plus de faciliter a coder et recevoir de l'aide...