Wie kann ich eine Referenz Perl-hash in ein array in einen hash?

Hier einige aktualisierte code, mit einer Erklärung unten:

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %photo_details = (
    'black_cat' => [
        {'size' => '1600x1200', 'position' => -25},
        {'size' => '1280x1024', 'position' =>  25},
        {'size' =>   '800x600', 'position' =>   0},
    ],
    'race_car' => [
        {'size' => '1600x1200', 'position' =>  10},
        {'size' =>   '800x600', 'position' =>   5},
    ],
);


print Dumper( %photo_details );
foreach my $name ( keys %photo_details ) {
    foreach my $photo_detail ( @{ $photo_details{$name} } ) {
        my $size     = $photo_detail->{'size'};
        my $position = $photo_detail->{'position'};

        print Dumper( $photo_details{$photo} );

        print ("size = $size, position = $position\n");
    }
}

Habe ich ersetzt einige Ihrer Runden Klammern mit eckigen und geschweiften Klammern. In Perl eckigen Klammern geben Sie eine Referenz auf einen anonymen array, und die geschweiften Klammern bezeichnen eine Referenz auf eine anonyme hash. Diese werden als anonym, weil es keine explizite variable name für die anonymen array oder hash.

Als Perl-Datenstrukturen vornehmen, speichern Sie eine Referenz auf einen hash statt der eigentlichen hash, müssen Sie diese zum erstellen der Referenzen. Sie können dies in zwei Schritten so:

my @array = ( 1, 2, 3 );
my $array_ref = \@array;
my %hash = ( 'one' => 1, 'two' => 2, 'three' => 3 );
my $hash_ref = \%hash_ref;

Daten aus $array_ref und $hash_ref, müssen Sie die -> Betreiber:

print $array_ref->[0], "\n";
print $hash_ref->{one}, "\n";

Brauchen Sie nicht die Anführungszeichen innerhalb von {} beim verweisen auf einen hash-Schlüssel, obwohl einige Leute denken, Zitate über einen hash-Schlüssel, um gute Praxis.

Ich fügte hinzu, ein Beispiel für die iteration über die gesamte Datenstruktur als ein Beispiel, anstatt einfach nur Lust auf eine Referenz. Hier ist die erste Zeile:

foreach my $name ( keys %photo_details ) {

Die Schlüssel-Methode gibt alle Schlüssel in einem hash, so dass Sie bekommen können, um die. Die nächste Zeile iteriert über alle photo_detail hashrefs in %photo_details:

    foreach my $photo_detail ( @{ $photo_details{$photo} } ) {

Den @{ $photo_details{$photo} } de-Referenzierung der Referenz $photo_details{$photo} in ein array Durchlaufen mit foreach.

Die Letzte Sache, die ich Hinzugefügt ein Aufruf an Data::Dumper, ein sehr nützliches Modul verteilt mit Perl druckt Datenstrukturen für Sie. Dies ist sehr nützlich beim Aufbau der Datenstrukturen, wie Sie ist eng verwandt cousin Data::Dumper::Simple. Dieses Modul ist leider nicht zusammen mit Perl, aber ich bevorzuge seinen Ausgang, wie es Variablennamen enthält.

Für einige weitere Lesen über, wie man komplexe Datenstrukturen mit Referenzen, check-out perlreftut.

InformationsquelleAutor James Thompson

Es ist wirklich nur eine Sache, die Sie haben zu kümmern, und das ist die oberste Ebene der Datenstruktur. Danach verwenden Sie einfach die richtige Indizierung syntax für jede Ebene:

Werden, wenn ein normaler hash, der Sie auf die Taste, die Sie wollen, dann richten Sie die zusätzlichen Indizes für jede Ebene nach es:

 %regular_hash = ...;
 $regular_hash{$key}[$index]{$key2};

Wenn Sie einen Verweis haben, Sie tun fast das gleiche, aber Sie haben zu beginnen mit der ersten Dereferenzierung mit einem Pfeil -> nach der top-level-Referenz. Nach, dass es das gleiche Indizierung Reihenfolge:

 $hash_ref = ...;
 $hash_ref->{$key}[$index]{$key2};

Für alle details finden Sie unter Intermediate Perl, wo wir erklären, Referenz-syntax.

InformationsquelleAutor brian d foy