suppression de doublons de valeur de hachage et de garder un nombre de en perl

Permet de dire

%hash = (
        key1 => 'one',
        key2 => 'two',
        key3 => 'three',
        key4 => 'two',
        key5 => 'one',
);

Je veux avoir deux tableaux:

  1. Ce tableau doit avoir unique clé/valeur

    @tableau1=(key1 un cle2 deux cle3 trois)

  2. ce tableau doit avoir le comte de doublons en valeur (par exemple ici seulement trois valeurs sont uniques donc " un "est deux fois et "deux" deux fois encore et "trois", a révélé une fois).

    @tableau2=(2 2 1)

  • N' "unique" clé/valeur" signifie soit la clé ou la valeur doit être unique, ou de la combinaison de la clé et la valeur doit être unique, ou tout simplement la clé doit être unique?
  • Ce que commande vous êtes en supposant que pour @matrice2. En d'autres termes, pourquoi le nombre " un "venir avant de le nombre "deux"?
  • Ce qui détermine les clés sont gardées? Ne dites pas que l'ordre dans lequel les touches sont de retour n'est pas la même sur tous les différents perl et il n'est pas le même que l'ordre donné dans le fichier source.
  • La commande de @matrice2 est censé être valeur1 valeur2 depuis je veux enlever l'identique des éléments de différentes touches. La commande de @matrice1 doit correspondre avec @matrice2 pour suivre clé/valeur sont identiques et combien de fois?
InformationsquelleAutor Suren | 2009-06-09
  1. 1

    Je ne suis pas sûr de savoir pourquoi vous voulez la réponse définitive à être dans cette drôle de forme (par opposition à un hachage de clés/valeurs et un hachage de valeur=>le comte mappages, mais vous pouvez y aller...

    Vous pouvez également utiliser %compte de hachage directement au lieu de pousser les valeurs dans un tableau que vous vouliez ci-dessus.

    use strict; 
use Data::Dumper;

my %hash = ( key1 => "one", key2 => "two", key3 => "three", key4 => "two", key5 => "one" );
my %counts = ();
my @counts = ();
my %unique = ();
foreach my $key (sort keys %hash) {
    my $value = $hash{$key}; 
    if (not exists $counts{$value}) {
        $unique{$key} = $value;
    }
    $counts{$value}++;
};
my @unique_keys = sort keys %unique; # Fix the sorting to your desired one 
                                     # if default is not what you meant

# You can also use %counts hash directly 
#instead of pushing values into an array as you wanted above.
foreach my $key (@unique_keys) {
    push @counts, $counts{ $unique{$key} }
};

# Print
print Data::Dumper->Dump([\@unique_keys, \@counts, \%unique],  
                         ["unique_keys", "counts", "unique"] ) ;

    Résultats:

    $unique_keys = [
                 'key1',
                 'key2',
                 'key3'
               ];
$counts = [
            2,
            2,
            1
          ];
$unique = {
            'key2' => 'two',
            'key1' => 'one',
            'key3' => 'three'
          };
    • Je suis tout à fait nouveau pour perl .... ouais je suis d'accord avec vous que l'on peut avoir de hachage avec clé unique/valeur. En fait, je voulais avoir un enregistrement de toutes les valeurs avec leurs clés respectives pour être comptés. Je viens de na pas savoir comment le faire à l'aide de hachage .... merci beaucoup ..... j'ai eu ce que je voulais .....
    InformationsquelleAutor DVK
  2. 2

    Tenir compte de l'ordonnance numéro ...

    #!/usr/bin/perl

use strict;
use warnings;

my %hash = qw( key1 one key2 two key3 three key4 two key5 one );

my %counts;
$counts{ $_ }++ for values %hash;

my %uniq = reverse %hash;

my (@array1, @array2);

while ( my ($k, $v) = each %uniq ) {
    push @array1, $v, $k;
    push @array2, $counts{$k};
}

use Data::Dumper;
print Dumper \@array1, \@array2;


__END__

C:\Temp> t.pl
$VAR1 = [
          'key3',
          'three',
          'key5',
          'one',
          'key2',
          'two'
        ];
$VAR2 = [
          1,
          2,
          2
        ];
    • ouais. Même celui-ci fonctionne parfaitement avec mon problème. je vous remercie. merci à vous tous. C'était mon premier post et jamais attendu à une telle réaction rapide et des façons différentes de faire la même chose.
    InformationsquelleAutor Sinan Ünür
  3. 0
    my %hash = (
        key1 => 'one',
        key2 => 'two',
        key3 => 'three',
        key4 => 'two',
        key5 => 'one',
);

my %counts;

$counts{$_}++ foreach values %hash;

my @elements = keys %hashes;

my @frequency = values %hashes;
    InformationsquelleAutor