相关疑难解决方法(0)

我试图想出一种初始化哈希的方法,而不必经历一个循环.我希望使用切片,但它似乎没有产生预期的结果.

请考虑以下代码:

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

显然有些不对劲.

所以我的问题是:给定两个数组(键和值)初始化哈希的最优雅方法是什么？