Итерация через массив Perl из запроса AJAX

Question

Я работаю над проектом базы данных Catalyst и пытаюсь выполнить некоторые запросы AJAX через jQuery. Параметры посылаются ОК, как можно видеть в изображении 1.

Обратите внимание, что как «диагностика» и «type_consents» (и соответствующие им даты) посылаются в виде массива значений (значение 1, значение 2, ... значение n).

Теперь для обработки на стороне сервера Catalyst::Request позволяет легко извлекать данные через $req->parameters, но, похоже, он не работает для меня.

Я делаю это так:

my $params = $c->request->parameters; #Retrieving all parameters 

my @type_consents   = $params->{type_consent}; 
my @date_consents   = $params->{date_consent}; 
my @diagnosis    = $params->{diagnosis}; 
my @date_diagnosis  = $params->{date_diagnosis}; 

Тогда мне нужно цикл этих массивов и сделать вставку для каждой пары значений (diagnosis|date , consent|date). Кроме того, мне нужно хранить и обрабатывать все операции и выполнить их все сразу в eval() блоке, поэтому я делаю это так:

my %transactions; 

# Diagnosis 
my $diag_index = 0; 

foreach my $key (0 .. $#diagnosis) { 
    $transactions{diagnosis}{$diag_index} = $diagnosis_mod->new(
     { 
      subject_id   => $subject_id, 
      diagnosis_date  => $date_diagnosis[$key], 
      diagnosis   => $diagnosis[$key], 
      diagnosis_comment => "", 
      suggested_treatment => "" 
     } 
    ); 

    print STDERR "\n" . $date_diagnosis[$diag_index]; 
    print STDERR "\n DEBUG: $date_diagnosis[$diag_index] | $diagnosis[$diag_index] | key: $diag_index"; 
    print STDERR "\n DEBUG2:" . Dumper(@date_diagnosis) . " | " . Dumper(@diagnosis); 

    $diag_index++; 
} 

# I'm avoiding evaluating and performing the transactions so neither eval() nor database impact are shown above. 

Эти напечатает отладка следующее:

Означает ли это, что мой «массив» - это просто одномерная переменная со строкой? Я попытался разбить его, но это тоже не сработает.

Answer 1

Единственными значениями, которые вы можете сохранить в хэше, являются скаляры. Таким образом, $params->{type_consent} является скаляром, а не списком. Однако, поскольку ссылки на вещи (скаляры, массивы, хэши, объекты, глобусы и т. Д.) Также являются скалярами, вы можете хранить ссылки в хэше.

То, что $params->{type_consent} является, следовательно, ссылкой на массив, а не на массив или список.

То, что я думаю, что вы хотите, то, либо назначить, что my $type_consent = $params->{type_consent};, а затем использовать @$type_consent в качестве массива (и, таким образом, они оба указывают на тот же массив - изменение что-то через @$type_consent изменяет этот массив в %$params), или скопируйте массив, указав my @type_consent = @{$params->{type_consent}};.

Какой вариант я использую, ситуативен, но я склоняюсь к эталонному варианту, если только для уменьшения использования памяти, если нет причин для его копирования.