perl Присоединиться к массиву ссылок

Question

Я новичок в perl.

Я пытаюсь использовать соединение с ссылкой на массив, но он не работает.

Вот мой код.

my $arr = { 
    'items' => ('home', 'chair', 'table') 
}; 

my $output = join(',', $arr->{'items'}); 

print $output; 

Он печатает

table 

вместо

home,chair,table 

Может кто-то помочь мне в этом отношении?

Answer 1

В Perl, parens не создают массивы. Они только когда-либо разбираются в приоритете. Hashref

{ 'items' => ('home', 'chair', 'table') } 

такая же, как

{ 'items' => 'home', 'chair' => 'table' } 

Если вы хотите поместить массив в хэш, вы должны использовать ссылку на массив, который вы можете создать с [ ... ]:

my $hash = { 'items' => ['home', 'chair', 'table'] } 

Теперь, если вы запустите свой код, вы получите что-то вроде

ARRAY(0x1234567) 

как мощность. Это путь ссылки распечатываются. Нам нужно разыменовать его, чтобы присоединиться к элементам. Мы можем сделать это с помощью оператора разыменования массива @{ ... }. Тогда:

print join(',', @{ $hash->{items} }), "\n"; 

Чтобы узнать больше о ссылках и сложных структур данных в Perl, прочтите

• perlreftut, а затем
• perldsc.