Aggreger les valeurs des lignes ayant des champs identiques dans un fichier

**Decon** · 04/05/2012, 15h46

Bonjour,

Soit le fichier FIC de contenu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
P1:A:TOTO:VAL1:62
P1:A:TOTO:VAL1:56
P1:A:TOTO:VAL2:5
P1:B:TOTO:VAL2:4
P1:A:TITI:VAL1:62
P2:A:TOTO:VAL2:59
P1:B:TITI:VAL6:5
P2:A:TOTO:VAL1:9
P2:B:BLABLA:VAL4:5
P2:B:TOTO:VAL2:61
P2:B:BLABLA:VAL4:51

Je souhaite pourvoir aggréger les lignes du fichier suivant les champs 2,3 et 4. Le séparateur étant

Code :

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

Ce qui devrait me donner le résultat suivant:

Code :

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

1
2
3
4
5
6
A:TOTO:VAL1:127
A:TOTO:VAL2:64
B:TOTO:VAL2:65
B:BLABLA:VAL4:56
A:TITI:VAL1:62
B:TITI:VAL6:5

Merci d'avance.

**Quantactique** · 07/05/2012, 17h12

Alors je viens d'y réfléchir un peu et voilà ce à quoi j'ai pensé :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl
 
use strict;
use warnings;
use Tie::File;
 
 
my (@file, @result);
 
open(IN, "agréger.txt") || die "E/S : $!";
 
while(<IN>){
	my $tmp = substr($_, 3);
	push(@file, $tmp);
}
 
while(@file){
 
	my $line = $file[0];
	my @line = split(/:/, $line	);
 
	my $somme = $line[3];
	shift(@file);
 
	my $i = 0;
	foreach (@file){
		if($_ =~ /$line[0]:$line[1]:$line[2]:(\d+)/){
			$somme = $somme + $1;
			splice(@file, $i, 1);
		}
	$i++
	}
 
	my $newLine = "$line[0]:$line[1]:$line[2]:$somme";	
	push(@result, $newLine);
 
}
 
close(IN);
 
 
open(OUT, ">outAgregation.txt") || die "E/S : $!";
 
foreach (@result){
		print OUT $_."\n";	
}
 
close(OUT);