Perl Динамически генерируемый многомерный ассоциативный массив

Question

Это может быть простой надзор с моей стороны (или что-то гораздо более продвинутое, чем мой набор навыков). Я пытаюсь динамически заполнить 2d ассоциативный массив, читая ввод из файла.

my @data; 
while (<FILE>) { 
    chomp; 

    my $ID,$COUNT; 
    print "READ: " . $_ . "\n"; #Debug 1 

    ($ID,$COUNT,undef,undef,undef) = split /\,/; 
    print "DATA: " . $ID . "," . $COUNT . "\n"; # Debug 2 

    $data{$ID}{"count"} = $COUNT; 
    #push @{$data{$ID}{"count"}}, $COUNT; 

       print $data{$ID}{"count"} . "\n"; # Debug 3 
} 

Первая печать (отладка 1) напечатает строку, похожую на des313,3 ,,,.

Вторая печать (отладка 2) будет печатать линию передачи данных: des313,3

Третья печать (3) отладка будет печатать пустую строку.

Проблема, кажется, в том, что я пытаюсь вставить данные в ассоциативный массив. Я пробовал как прямую вставку, так и метод push без каких-либо результатов. Я сделал это с PHP, но я думаю, что я не замечаю этого в Perl. Я просмотрел страницу perldoc perldsc в разделе HASHES из HASHES, однако я не видел, чтобы она говорила о динамической генерации их. Любые предложения были бы замечательными!

Answer 1

Назначение хэша так, как вы должны работать нормально. Вы неправильно указываете свои переменные. Ваш ассоциативный массив называется хешем в Perl и имеет префикс % sigil, поэтому вы должны написать my %data перед циклом while. Внутри цикла оператору my нужны парсеры для применения к списку, поэтому он должен быть my ($ID, $COUNT);.

Этот минимальный пример работает правильно:

use warnings; # place these lines at the top of all of your programs 
use strict; # they will catch many errors for you 

my %data; # hash variable 
while (<DATA>) { 
    chomp; 
    my ($id, $count) = split /,/; # simplify the split 

    $data{$id}{count} = $count; # build your hash 
} 

print "got: $data{des313}{count}\n"; # prints "got: 3" 

__DATA__ 
des313,3