从 AJAX 请求迭代 Perl 数组

Question

我正在从事 Catalyst 数据库项目，并尝试通过 jQuery 执行一些 AJAX 请求。参数发送正常，如图 1 所示。

请注意，“diagnosis”和“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} 是标量，而不是列表。但是，由于对事物（标量、数组、散列、对象、glob 等）的引用也是标量，因此您可以将引用存储在散列中。

因此，$params->{type_consent} 是对数组的引用，而不是数组或列表本身。

然后，我想你想要的是将其分配给 my $type_consent = $params->{type_consent}; 然后使用 @$type_consent 作为你的数组（因此它们都指向同一个数组 - 通过 @$type_consent 更改 %$params 中的数组），或通过说 my @type_consent = @{$params->{type_consent}}; 复制数组。

我选择使用哪一个是视情况而定的，但我倾向于参考选项，如果只是为了在没有理由复制它的情况下降低内存使用率。

从 AJAX 请求迭代 Perl 数组

Iterating through a Perl array from an AJAX request

arrays

perl

catalyst