如何在 Perl 的 fetchall_arrayref foreach 循环中获取数组的最后一个元素？ [复制]

Question

我将 Perl 与 MySql 一起使用。我有一个查询，我正在使用 fetchall_arrayref 从我的调查应用程序中获取结果数据。根据文档的建议，我使用 foreach 循环遍历 fetchall_arrayref。在这个循环中，我遍历我的 $answer1 数据并运行一个计数器来计算一个问题的所有答案，我想要总数。当我将此信息推送到数组中并尝试获取该数组中的最后一个元素时，我没有得到所需的输出。我在我的 fetchall_arrayref foreach 循环之外运行了一个测试，使用相同的逻辑，它成功地得到了我需要的东西。

这是我的代码：

my $testQuery = "SELECT questionNum, question, answer1 FROM results WHERE title = ? ORDER BY questionNum";
my $sty = $dbh->prepare($testQuery);
$sty->execute($marathon);
my $potential = $sty->fetchall_arrayref();
$sty->finish;

my $previous_question;
my $previous_answer;
my $countEm;
my @total;
my @totalAnswer;
my @norm;
my $last_arr_index;
foreach my $data (@$potential) {
    my ($questionNumber, $question, $answer1) = @$data;
    $answeredOne = 0;
    print qq{<tr><td>$questionNumber. $question</td></tr>} unless $previous_question eq $question;
    if ($answer1 ne "" && $questionNumber == 1){
        $optionOne = $answer1;
        $answeredOne = $answeredOne + 1;
        $countEm++;
        push @total, $countEm;
        push @totalAnswer, $optionOne;
    }
    if ($answeredOne != 0){
        #my $elementCount = scalar(@total);
        #say $elementCount;
        say @total[-1];
    }

$previous_question = $question;
$previous_answer = @totalAnswer[2];
}#end foreach

当我打印时：“说@total[-1];”当我只需要“3”时，给我“1 2 3”的输出。

我在 fetchall_arrayref foreach 循环之外测试了同样的逻辑，我得到了想要的输出：

my $counting;
my @totalCounting;
my @link = ('water', 'water', 'water', 'water', 'water');
foreach my $i (@link){
    $counting++;
    push @totalCounting, $counting;
}
say @totalCounting[-1];

"说总计数[-1];"给我“5”。

为什么这在 fetchall_arrayref 中不起作用？

Answer 1

你的第一个 sn-p 相当于

my $counting;
my @totalCounting;
my @link = ('water', 'water', 'water', 'water', 'water');
foreach my $i (@link){
    $counting++;
    push @totalCounting, $counting;
    say @totalCounting[-1];
}

如果你想在循环之后做一些事情，把它放在循环之后，而不是在它会被多次执行的地方。

---

使用数组仅使用其最后一个元素的整个概念是有缺陷的。更简单，最后浪费：

my @link = ('water', 'water', 'water', 'water', 'water');

my $counting;
for my $i (@link) {
    $counting++;
}

say $counting;

（当然，您可以在这里简单地使用say 0+@link;，但据了解，此代码是更大的sn-p的代理，其中计数是有条件的。）

---

有没有办法获取 fetchall_arrayref 中的最后一个元素？

$total[-1]（因此@total[-1]）是@total的最后一个元素。

嗯，它是当前存在的最后一个元素。您显然无法获得尚未放入 @total 的元素。但这正是你想要做的。如果在循环完成之前需要总数，则需要在需要之前计算它。

my $total;
for my $data (@$potential) {
    my ($questionNumber, $question, $answer1) = @$data;
    if ($answer1 ne "" && $questionNumber == 1) {
        $total++;
    }
}

for my $data (@$potential) {
    my ($questionNumber, $question, $answer1) = @$data;
    # Do something that uses $total...
}