¿Cómo inicializo los valores en un hash sin bucle?

Question

Estoy tratando de encontrar una manera de inicializar un hash sin tener que pasar por un bucle. Esperaba usar rodajas para eso, pero no parece producir los resultados esperados.

Considere el siguiente código:

#!/usr/bin/perl 
use Data::Dumper; 

my %hash =(); 
$hash{currency_symbol} = 'BRL'; 
$hash{currency_name} = 'Real'; 
print Dumper(%hash); 

Esto funciona como esperan y producir el siguiente resultado:

$VAR1 = 'currency_symbol'; 
$VAR2 = 'BRL'; 
$VAR3 = 'currency_name'; 
$VAR4 = 'Real'; 

Cuando intento utilizar rebanadas de la siguiente manera, que no funciona:

#!/usr/bin/perl 
use Data::Dumper; 

my %hash =(); 
my @fields = ('currency_symbol', 'currency_name'); 
my @array = ('BRL','Real'); 
@hash{@array} = @fields x @array; 

La salida es:

$VAR1 = 'currency_symbol'; 
$VAR2 = '22'; 
$VAR3 = 'currency_name'; 
$VAR4 = undef; 

Obviamente hay algo mal.

Así que mi pregunta sería: ¿cuál es la forma más elegante de inicializar un hash dado dos matrices (las claves y los valores)?

Answer 1

use strict; 
use warnings; # Must-haves 

# ... Initialize your arrays 

my @fields = ('currency_symbol', 'currency_name'); 
my @array = ('BRL','Real'); 

# ... Assign to your hash 

my %hash; 
@hash{@fields} = @array; 

Answer 2

%hash = ('current_symbol' => 'BLR', 'currency_name' => 'Real'); 

o

my %hash =(); 
my @fields = ('currency_symbol', 'currency_name'); 
my @array = ('BRL','Real'); 
@hash{@fields} = @array x @fields; 

Answer 3

Para el primero, tratar

my %hash = 
("currency_symbol" => "BRL", 
    "currency_name" => "Real" 
); 
print Dumper(\%hash); 

El resultado será:

$VAR1 = { 
      'currency_symbol' => 'BRL', 
      'currency_name' => 'Real' 
     }; 

Answer 4

Por lo tanto, lo que quiere decir que popular ulate el hash usando una matriz para las teclas, y una matriz para los valores. A continuación, haga lo siguiente:

#!/usr/bin/perl 
use strict; 
use warnings; 

use Data::Dumper; 

my %hash; 

my @keys = ("a","b"); 
my @values = ("1","2"); 

@hash{@keys} = @values; 

print Dumper(\%hash);' 

da:

$VAR1 = { 
      'a' => '1', 
      'b' => '2' 
     };