如何在没有循环的情况下初始化散列值？

Question

我想找出一种方法来初始化一个散列，而不必经过一个循环。我希望为此使用切片，但似乎没有产生预期的结果。

考虑下面的代码：

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

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

这样确实如预期，并产生以下的输出：

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

当我尝试按如下方式使用切片，这是行不通的：

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

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

输出结果为：

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

显然有些问题。

所以我的问题是：什么是最优雅的方式来初始化散列给出两个数组（键和值）？

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'); 

或

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

Answer 3

这是第一个，尝试

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

结果将是：

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

Answer 4

所以，你想要的是流行的使用键的数组和值的数组来使用哈希值。然后执行以下操作：

#!/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);' 

给出：

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