entfernen von doppelten hash-Wert und halten eine Anzahl von in perl

Können sagen,

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

Ich will zwei arrays:

  1. Dieser array sollte eindeutige Schlüssel/Wert -

    @array1=(key1 eine key2 zwei key3 drei)

  2. diesem array haben sollte Anzahl der Duplikate, die von Wert (z.B. hier nur drei Wert sind einzigartig, so dass 'one' gefunden, zweimal, und 'zwei' gefunden, zweimal, wieder und 'drei' gefunden einmal).

    @array2=(2 2 1)

  • Bedeutet "die einzigartige" Schlüssel/Wert" bedeutet entweder der Schlüssel oder der Wert muss eindeutig sein, oder die Kombination von Schlüssel und Wert muss eindeutig sein, oder nur der key muss einzigartig sein?
  • Was bestellt sind Sie, mal angenommen @array2. In anderen Worten, warum hat der Graf für 'eins' kommen, bevor die Zählung für die 'zwei'?
  • Was bestimmt, welche Schlüssel aufbewahrt? Sagen Sie nicht, weil die Reihenfolge, in der die Schlüssel zurück ist nicht das gleiche in verschiedenen perl-und es ist nicht die gleiche wie die der Reihenfolge in der Quell-Datei.
  • Die Reihenfolge der @array2 wird so sein soll, wie Wert1 Wert2 da möchte ich entfernen Sie die identischen Elemente aus verschiedenen Tasten. Der Auftrag von @array1 sollte übereinstimmen mit @array2, zu verfolgen, welche Schlüssel/Wert identisch sind, und wie oft?
InformationsquelleAutor Suren | 2009-06-09
  1. 1

    Ich bin mir nicht sicher, warum Sie wollen, dass die endgültige Antwort, dass Sie in dieser merkwürdigen form (im Gegensatz zu einem hash, der eindeutigen Schlüssel/Werte-und ein hash-Wert=>Anzahl Zuordnungen, aber hier gehen Sie...

    Können Sie auch %zählt hash direkt anstatt Werte in ein array, wie Sie wollte, oben.

    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"] ) ;

    Ergebnisse:

    $unique_keys = [
                 'key1',
                 'key2',
                 'key3'
               ];
$counts = [
            2,
            2,
            1
          ];
$unique = {
            'key2' => 'two',
            'key1' => 'one',
            'key3' => 'three'
          };
    • Ich bin ganz neu mit perl .... ja, ich Stimme mit Ihnen überein, dass man haben kann, hash mit einzigartigen Schlüssel/Wert-wie auch. Eigentlich wollte ich eine Aufzeichnung aller Werte mit Ihrer jeweiligen Tasten gezählt werden. Ich gerade nicht weiß, wie zu tun, dass die Verwendung von hash .... thanx a lot...... ich habe, was ich wollte .....
    InformationsquelleAutor DVK
  2. 2

    Ignoriert die Reihenfolge-Problem ...

    #!/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
        ];
    • ja. Auch dieser arbeitet perfekt mit meinem problem. danke. vielen Dank an Euch alle. Dies war mein Erster Beitrag und hätte nie erwartet, eine so schnelle Reaktion und verschiedene Möglichkeiten, die gleiche Sache zu tun.
    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
Schreibe einen Kommentar