Perl ? (:

Un petit passage dans un hash (dont les clés sont uniques) permet d’éliminer des doublons.
Le reste n’est que de la mise en forme.

moi@myhome:/tmp$ cat {test.txt,quickperl.pl} ; perl quickperl.pl < test.txt 
toto #TEST1
tata #TEST1
titi #TEST1
toto #TEST2
titi #TEST2
titi #TEST3
my %h; # Oh le beau hash !
while (<>) { # Mange un fichier qu’on lui donne
 chomp; my @a = split(' #'); # Met en forme pour traitement
 $h{$a[0]} .= ",$a[1]"; # Élimine les doublons
}
foreach (keys %h) {
 $h{$_} =~s/^,//;
 print "$_ #$h{$_}\n";
}
titi #TEST1,TEST2,TEST3
toto #TEST1,TEST2
tata #TEST1