Можно ли присвоить ссылку массива как значение в паре key : value
хеш-таблицы в perl?
Массив в значении хэша perl
Ответ 1
Да, это так. Создайте ссылку на массив, используя обратную косую черту:
$hash{key} = \@array;
Обратите внимание, что это будет ссылка на фактический массив, поэтому, если вы выполните изменение, например:
$array[0] = "foo";
Это также означает, что $hash{key}[0]
установлен на "foo"
.
Если это не то, что вы хотите, вы можете скопировать значения с помощью ссылки анонимного массива [ ... ]
:
$hash{key} = [ @array ];
Кроме того, вам не нужно проходить через массив, чтобы это сделать. Вы можете просто назначить напрямую:
$hash{key} = [ qw(foo bar baz) ];
Подробнее о создании ссылок в perldoc perlref
Ответ 2
Да. См. http://perlmonks.org/?node=References+quick+reference для некоторых основных правил для доступа к таким структурам данных, но для его создания просто выполните одно из следующих действий:
%hash = ( 'somekey' => \@arrayvalue );
$hash{'somekey'} = \@arrayvalue;
%hash = ( 'somekey' => [ ... ] );
Ответ 3
use Data::Dumper; @name=('5/17',
'5/17','5/17','5/17','5/17','5/17','5/17','5/17'); @status_flags=('U
H L','U C','U H L','U C','U C','U H L','U C', 'U H L');
@ip_address=('192.168.0.11','192.168.0.2','192.168.0.13','192.168.0.0','192.168.0.3','192.168.0.12','192.168.0.4','192.168.0.14'); @dp_id=('0','0','0','0','0','0','0','0');
@ip_prefix_length=('32','32','32','24', '32', '32','32','32');
for ($value=0;$value<=5;$value++) {
$keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'name'=>"$name[$value]"};
$keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'dp-id'=>"$dp_id[$value]"};
$keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'ip-address'=>"$ip_address[$value]"};
$keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'ip-prefix-length'=>"$ip_prefix_length[$value]"};
$keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'ip-gateway'=>'*'};
}
print Dumper \%keyvals;
Each array value assign into hash value. $var1= {
'Response' => {
'extension-ip-route' => {
'status-flags' => 'U H L '
,
'ip-gateway' => '*',
'name' => '0/2',
'ip-address' => '192.168.20.11',
'dp-id' => '0',
'ip-prefix-length'=>'32'
}
}
};
Ответ 4
%hash = ( 'somekey' => \@arrayvalue );
$hash{'somekey'} = \@arrayvalue;
It is right. We can assign either hash or hash reference format.