Obtenir toutes les clés pour les éléments répétés correspondant

Question

J'ai un fichier qui se compose de ce qui suit:

 
A 1 
A 2 
B 3 
B 4 
B 5 
B 6 
C 7 
A 8 

Je veux obtenir des clés uniques dans la première colonne, mais obtenir toutes les valeurs correspondant à cette clé unique, à savoir que j'ai besoin pour obtenir:

 
A 1,2,8 
B 3,4,5,6 
C 7 

Quelle serait la meilleure façon de faire cela?
(je l'ai entendu dire que Perl a un bon support pour résoudre ce problème, mais je suis nouveau à Perl.)

Answer 1

Vous voulez probablement un hachage, où chaque valeur dans le hachage est un tableau reference.

my %values; 
while (<>) { 
    my ($left, $right) = split(/ /,$_,2); 
    my $array = $values{$left}; 
    if (!$array) { 
     $array = []; 
     $values{$left} = $array; 
    } 
    push(@{$array},$right); 
} 

Vous pouvez vérifier que cela a produit la structure de données correcte avec Data::Dumper:

use Data::Dumper; 
print Dumper(\%values); 

Answer 2

essayez ceci:

open my $fh, '<', "data_filename"; 
my %map; 

while(my $line = <$fh>) { 
    my ($key, $val) = split(/\s+/, $line); 
    push @{$map{$key}}, $val; 
} 

Answer 3

Ceci est juste une autre solution possible pour un souci d'exhaustivité. Dans ce cas, le hachage stocke la clé et une chaîne contenant vos valeurs.

use warnings; 
use strict; 

my %hash =(); 
open (FILE, "input.txt") or die ""; 
while(FILE>){ 
chomp; 
(my $key, my $value) = split; 
    $value = ",".$value if exists $hash{$key}; 
    $hash{$key}.= $value; 
} 

foreach my $key (sort keys %hash){ 
    print "$key $hash{$key}\n"; 
} 

Comme toujours, il existe plusieurs façons de le faire.