Ajouter un hachage à un tableau

J'ai un tableau comme ça,

@switch_ports = ()

et souhaitez ajouter 50 instances de cette empreinte, à la switch_ports tableau

%port = (data1 => 0, data2 => 0, changed => 0)

cependant, si je pousse mon hachage pour le tableau

push(@switch_ports, %port)

mais si je les fais imprimer @switch_ports
Je viens de voir

data10data20changed0

donc, il semble juste être ajouté à la matrice, (joindre)
et si j'essaye et je boucle le tableau et imprimer les clés, il échoue également.

Je pense que je vais retardé de brisé ma tête sur le bureau si dur.

1 - Pouvez-vous stocker une valeur de hachage dans un tableau?

2 - Pouvez-vous disposez d'un tableau de hachages?

Essayer de l'obtenir...

switchports
    0
        data1
        data2
        changed
    1
        data1
        ....

ainsi

foreach $port (@switchport) {
    print $port['data1']
}

retrouvera tous les data1 pour toutes les valeurs de hachage dans le tableau.

Oui, je n'ai pas à Perl

source d'informationauteur Wizzard

En Perl, tableau de hachage et des membres doit être une valeur unique. Avant de Perl 5.0, il n'y avait pas de moyen (facile) de faire ce que vous voulez.

Cependant, en Perl 5, vous pouvez maintenant utiliser une référence à votre hash. Une référence est tout simplement l'emplacement de mémoire où l'élément est stocké. Pour obtenir une référence, vous placez une barre oblique inverse devant de la variable:

use feature qw(say);

my $foo = "bar";
say $foo;    #prints "bar"
say $foo;   #prints SCALAR(0x7fad01029070) or something like that

Ainsi:

my @switch_ports = ();
my %port = ( data1 => 0, data2 => 0, changed => 0 );
my $port_ref = \%port;

push( @switch_ports, $port_ref );

Et, vous n'avez pas à créer $port_ref:

my @switch_ports = ();
my %port = ( data1 => 0, data2 => 0, changed => 0 );

push( @switch_ports, \%port );

Pour obtenir la valeur réelle de la référence, il suffit de placer le symbole de retour sur le devant:

#Remember: This is a REFERENCE to the hash and not the hash itself
$port_ref = $switch_ports[0];
%port = %{$port_ref};      #Dereferences the reference $port_ref;

print "$port{data1}  $port{data2}  $port{changed}\n";

Un autre raccourci:

%port = %{$port[0]};   #Dereference in a single step
print "$port{data1}  $port{data2}  $port{changed}\n";

Ou, encore plus courte, de déférence, comme vous allez le long:

print ${$port[0]}{data1} . " " . ${$port[0]}{data2} . " " . ${$port[0]}{changed} . "\n";

Et un peu syntaxique édulcorant. Il signifie la même chose, mais plus facile à lire:

print $port[0]->{data1} . " " . $port[0]->{data2} . " " . $port[0]->{changed} . "\n";

Prendre un coup d'oeil à Perldoc de perlreftut et perlref. Le premier est un tutoriel.

7

Lorsque vous essayez:
```
%port = (data1 => 0, data2 => 0, changed => 0);
push @switch_ports, %port;
```
Ce qui se passe réellement est:
```
push @switch_ports, "data1", 0, "data2", 0, "changed", 0;
```
Car les tableaux et les tables de hachage sera pause automatiquement dans leurs éléments lorsque utilisé dans un contexte de liste.

Lorsque vous souhaitez créer 50 instances de hachage, il n'est pas une bonne idée d'utiliser une référence à un hachage comme d'autres l'ont suggéré, comme cela ne fera que créer 50 références différentes à la même de hachage. Qui crash et brûler, pour des raisons évidentes.

Ce que vous avez besoin est quelque chose comme:
```
push @array, { data1 => 0, data2 => 0, changed => 0 } for 1 .. 50;
```
Qui va ajouter 50 anonyme unique hachages pour le tableau. Les accolades indique construction de anonyme de hachage, et retourne un scalaire référence.

ETA: Votre exemple de la façon d'accéder à ces données est incorrect.
```
foreach $port (@switchport) {
    print $port['data1'];    # will use @port, not $port
}
```
À l'aide d'un indice sur une variable scalaire va tenter d'accéder à un tableau dans cet espace, pas un scalaire. En perl, il est possible d'avoir deux variables distinctes $port et @port. Les crochets sont utilisés pour les tableaux, pas les tables de hachage. Lors de l'utilisation de références, vous devez également utiliser la flèche de l'opérateur: $port->{data1}. Donc:
```
for my $port (@switchport) {
    print $port->{data1};
}
```

Vous pouvez stocker un référence à une valeur de hachage dans un tableau:

push @switchport, \%port; # stores a reference to your existing hash

push @switchport, { %port }; # clones the hash so it can be updated separately

Puis itérer avec, disons,

foreach my $port (@switchport) {
    print $port->{'data1'}; # or $$port{'data1'}
}

Voir man perlref.

À simplifier pour ceux qui utilisent cette question pour trouver une approche générale - comme dans la Rubrique Question. Mysql thème:

my @my_hashes = ();
my @$rows = ... # Initialize. Mysql SELECT query results, for example.

if( @$rows ) {
    foreach $row ( @$rows ) { # Every row to hash, every hash to an array.
        push @my_hashes, { 
            id => $row->{ id }, 
            name => $row->{ name }, 
            value => $row->{ value }, 
        };
    }
}

À boucle et impression: l'impression

for my $i ( 0 .. $#my_hashes ) {
    print "$my_hashes[$i]{ id }\n ";
    print "$my_hashes[$i]{ name }\n ";
    print "$my_hashes[$i]{ value }\n ";
}

for my $i ( 0 .. $#my_hashes ) {
for my $type ( keys %{ $my_hashes[$i] } ) {
     print "$type=$my_hashes[$i]{$type} ";
}

}

Vous devez vous connecter pour publier un commentaire.