Join-Schlüssel und Werte in perl

Habe ich einen hash mit den folgenden Schlüssel/Wert-paar

4 => model1
2 => model2

Ich möchte den folgenden string erzeugt aus den oben genannten hash -

4 X model1 , 2 X model2

Ich habe versucht, die folgenden

my %hash,
foreach my $keys (keys %hash) {
    my $string = $string . join(' X ',$keys,$hash{$keys});
}
print $string;

Was ich bekomme ist 

4 X model12Xmodel2

Wie kann ich erreichen das gewünschte Ergebnis 4 X model1 , 2 X model2?

InformationsquelleAutor user238021 | 2011-12-07

  1. 16

    Könnten Sie tun:

    my %hash = (4 => "model1", 2 => "model2");
my $str = join(", ", map { "$_ X $hash{$_}" } keys %hash);
print $str;

    Ausgabe:

    4 X model1, 2 X model2

    Wie es funktioniert:

    map { expr } list wertet expr für jedes Element in list, und gibt die Liste enthält alle Ergebnisse dieser Auswertungen. Hier "$_ X $hash{$_}" wird ausgewertet, für jeden Schlüssel den Hashwert, das Ergebnis ist eine Liste von key X value strings. Die join kümmert setzen Sie die Kommas zwischen den einzelnen dieser Zeichenfolgen.

    Beachten Sie, dass Sie Ihre hash ist ein bisschen ungewöhnlich, wenn man die Speicherung (Artikel,Anzahl) - Paaren. Normalerweise würde es anders herum sein:

    my %hash = ("model1" => 4, "model2" => 2);
my $str = join(", ", map { "$hash{$_} X $_" } keys %hash);

    denn mit Ihrer Regelung, die Sie nicht speichern kann die gleiche Menge für zwei verschiedene Elemente in Ihren hash.

    Danke. meine original-hash ist genau wie das, was Sie erwähnt haben. Ich versuchte es rückgängig zu machen so kann ich die Anzahl in der Taste. Jedoch, ich bekomme dein Punkt, dass die Umkehrung ist ein Nachteil, wie ich speichern kann einzigartige Gegenstände.
    Wenn Sie möchten, eine (Menge -> Element) - Karte, Sie können es tun, aber Sie müssen einen hash von arrays. Syntax wird ein bisschen tricky aber. perldoc.perl.org/perldsc.html#Generation-of-a-HASH-OF-ARRAYS

    InformationsquelleAutor Mat

  2. 1

    Können Sie auch ändern Sie Ihre Schleife wie folgt:

    my @tokens =();
foreach my $key (keys %hash) {
     push @tokens, $string . join(' X ',$key, $hash{$key});
}
print join(', ' , @tokens);

    InformationsquelleAutor Ashwinee K Jha

Schreibe einen Kommentar