Aggreger valeurs des lignes ayant des champs

$ awk -F':' '{x[$2, $3, $4]+=$5} END{for (n in x){i=n ; gsub(SUBSEP, FS, n) ; print n FS x[i]}}' fichierFIC  
A:TITI:VAL1:62  
B:BLABLA:VAL4:56  
B:TITI:VAL6:5  
B:TOTO:VAL2:65  
A:TOTO:VAL1:127  
A:TOTO:VAL2:64  
$  

#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches

$FS = ':';		# set field separator
$, = ' ';		# set output field separator
$\ = "\n";		# set output record separator

while (<>) {
    chomp;	# strip record separator
    ($Fld1,$Fld2,$Fld3,$Fld4,$Fld5) = split($FS, $_, -1);
    $X{$Fld2, $Fld3, $Fld4} += $Fld5;
}

foreach $n (keys %X) {
    $i = $n;
    ($s_ = '"'.($FS).'"') =~ s/&/\$&/g, $n =~ s/$;/eval $s_/ge;
    print $n . $FS . $X{$i};
}

-F':'      on définit : comme séparateur
{x[$2, $3, $4]+=$5}        on somme les valeurs du champ 5 dans un tableau indexé par les champs 2, 3 et 4
END{for (n in x)           pour chaque index n (les 3 champs) du tableau x
{i=n ; gsub(SUBSEP, FS, n) ; print n FS x[i]}}             on sauve n, on convertit le séparateur des index de tableau ajouté par awk (SUBSEP=\034) en : et on imprime

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

my %aggreger; #déclaration de hash

while(<DATA>){                 # utilisation de handle DATA
                               # pour la lecture des données
  /^.*?:((?:.*?:){3})(\d+)$/;  # séparateur :
                               # utilisation de ? pour eviter 
                               # la gourmandise du quantificatuer *
                               # (?: - ouvre une paranthèse non-capturante
                               # P1: est donc non capturé
                               # on capture 3 fois un groupe de 
                               # n'importe quel caractère 
                               # jusqu'au 1er : rencontré
                               # il s'agit des champs 2,3 et 4 avec : inclus
                               # Ex: A:TOTO:VAL1: pour la 1ère ligne, etc.
                               # Ca sera la clé de notre Hash ( $1 )
                               # La 2ème capture ($2) 
                               # sera la valeur numérique

  $aggreger{$1} += $2;         # Sachant que la clé d'un hash est unique
                               # il suffit d'incrementer sur la clé 
                               # les valeurs numériques correspondantes

}

print "$_$aggreger{$_}\n" for sort keys %aggreger; # affichage

# DATA lit tout ce qui se trouve après __END__

__END__
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