Вопросы Теги

Как сделать Я инициализирую значения в хеше без цикла?

Я пытаюсь придумать способ инициализировать хэш без прохождения цикла. Я надеялся использовать для этого срезы, но, похоже, это не дало ожидаемых результатов.

Рассмотрим следующий код: 

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

Очевидно, что-то не так.

Итак, мой вопрос: каков самый элегантный способ инициализировать хэш для двух массивов (ключей и значений)?

17
задан Axeman 24 August 2010 в 13:24
поделиться

4 ответа

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;
23
ответ дан 30 November 2019 в 11:03
поделиться

Для первого попробуйте 

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

Результат будет: 

$VAR1 = {
          'currency_symbol' => 'BRL',
          'currency_name' => 'Real'
        };
3
ответ дан 30 November 2019 в 11:03
поделиться 
    %hash = ('current_symbol' => 'BLR', 'currency_name' => 'Real');

или 

my %hash = ();
my @fields = ('currency_symbol', 'currency_name');
my @array = ('BRL','Real');
@hash{@fields} = @array x @fields;
6
ответ дан 30 November 2019 в 11:03
поделиться

Итак, вам нужно заполнить хеш, используя массив для ключей и массив для значений. Затем сделайте следующее: 

#!/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'
        };
13
ответ дан 30 November 2019 в 11:03
поделиться
Другие вопросы по тегам:

Похожие вопросы: