de suppression de valeur de hachage en double et en gardant un compte de celui-ci en Perl

Question

permet de dire

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

Je veux avoir deux tableaux:

1. Ce tableau devrait avoir clé unique/valeur

   @ array1 = (clé1 une clé2 deux clé3 trois)

2. ce tableau doit avoir le nombre de doublons s par valeur (par exemple ici seulement trois valeurs sont uniques, donc 'un' est trouvé deux fois et 'deux' deux fois encore et 'trois' une fois).

   @ array2 = (2 2 1)

Answer 1

Je ne sais pas pourquoi vous voulez la réponse finale soit sous cette forme étrange (par opposition à un hachage de clés uniques/valeurs et une hachage value => count correspondances, mais ici vous allez ...

vous pouvez également utiliser% compte 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' 
      }; 

Answer 2

Ignorant la question de l'ordre ...

#!/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 
     ]; 

Answer 3

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;