arrays - La copia de los elementos del conjunto de hashes

perl copy

Question

Mi conjunto de hashes:

@cur = [
          {
            ''A'' => ''9872'',
            ''B'' => ''1111''
          },
          {
            ''A'' => ''9871'',
            ''B'' => ''1111''
          }
        ];

Resultado Esperado:

@curnew = (''9872'', ''9871'');

Cualquier forma simple de obtener solo los valores del primer elemento hash
esto y asignarlo a una matriz?

Answer 1

En primer lugar, su matriz debe definirse como

my @cur = (
    {
        ''A'' => ''9872'',
        ''B'' => ''1111''
    },
    {
        ''A'' => ''9871'',
        ''B'' => ''1111''
    }
);

Tenga en cuenta el paréntesis

#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dump qw(dump);

my @cur = (
    {
        ''A'' => ''9872'',
        ''B'' => ''1111''
    },
    {
        ''A'' => ''9871'',
        ''B'' => ''1111''
    }
);
my @new;
foreach(@cur){
    push @new, $_->{A};
}
dump @new;

Answer 2

Tenga en cuenta que los hashes están desordenados, por lo que primero tomo la palabra para significar lexicográficamente primero .

map {                               # iterate over the list of hashrefs
    $_->{                           # access the value of the hashref
        (sort keys $_)[0]           # … whose key is the first one when sorted
    }
}
@{                                  # deref the arrayref into a list of hashrefs
    $cur[0]                         # first/only arrayref (???)
}

La expresión devuelve qw(9872 9871) .

Asignar un arrayref a un array como en @cur = […] es probablemente un error, pero lo tomé al @cur = […] de la @cur = […] .

Solución de bonificación perl5i :

use perl5i::2;
$cur[0]->map(sub {
    $_->{ $_->keys->sort->at(0) } 
})->flatten;

La expresión devuelve los mismos valores que arriba. Este código es un poco más largo, pero IMO es más legible porque el flujo de ejecución va estrictamente de arriba a abajo, de izquierda a derecha.

Answer 3

use Data::Dumper;
my @hashes = map (@{$_}, map ($_, $cur[0]));
my @result = map ($_->{''A''} , @hashes);    
print Dumper /@result;