Как преобразовать массив в этот указательный массив в Perl?

Question

Я пытаюсь использовать пакет Normalize, но у меня есть данные в массивах (@x), а не в некоторых указывающих массивах, которые пакет требует для нормализации.

Требуются формат данных в массиве указывающего, как хэш

my %xx = ('1' => 22.595451, '2' => 20.089094, '3' => 17.380813); 

Текущий формат данных

my @x = qw/22.595451 20.089094 17.380813/; 

т.е. ('22.595451', '20.089094', '17.380813').

Как вы можете преобразовать данные в отображающую структуру данных?

Answer 1

Вы можете передать массив по ссылке, вместо использования хэша. Как это

use strict; 
use warnings; 

use Normalize; 

my @x = qw/ 22.595451 20.089094 17.380813 /; 

my $norm = Normalize->new(round_to => 1e-16); 

$norm->normalize_to_max(\@x); 

print "$_\n" for @x; 

, которые нормализуют содержание @x вместо

Answer 2

Фактическое имя для того, что вы называете «указывающего массив» является хэш, который представляет собой тип ассоциативного массива.

my %xx; $xx{$_} = $x[$_] for 0..$#x; 

-или-

my %xx = map { $_ => $x[$_] } 0..$#x; 

---

Это говорит, Бородин отметил, что функции этого модуля принимает ссылку на массив, а также ссылку на хэш. Это означает, что вам не нужно делать

my %xx = map { $_ => $x[$_] } 0..$#x; 
$norm->normalize_to_max(\%xx); 

, так как вы можете просто сделать

$norm->normalize_to_max(\@x); 

Answer 3

Самый простой способ преобразовать массив в хэш.

my %hash; 
@hash{ keys @array } = values @array;