小编Geo*_* H.的帖子

我正在编写一个脚本,允许用户从网页上传图像,以便以后在该网站上使用.按照惯例,我所能找到的只是涉及CGI.pm的例子.我可以使用任何核心模块作为替代品吗？

我相信我遇到了一个错误,但我想确定我不只是错过了什么.我的实习生正在网站上工作,该网站将对可变数量的问题进行测试,并为员工完成培训提供可变数量的答案.我们将问题存储在2D数组中,其中包含问题ID和问题文本.我们循环遍历该数组,为每个问题创建div,隐藏除第一个之外的所有问题,并使用该问题ID在循环中获得该问题的答案.

我们遇到的是,当for循环到达最后一个索引时,会推送一个空元素@questions.这会使结果增加scalar @questions1,并且该循环无限重复.我们无法弄清楚的是导致空元素被推送到@questions的原因是什么？

my @questions;

my $getQuestion = $dbh->prepare("
    SELECT ID, Question 
    FROM ACTestQuestions
    WHERE TestID = ?
");

$getQuestion->execute(1);

while(my @question = $getQuestion->fetchrow_array()){
    push(@questions, \@question);
}

my $sth = $dbh->prepare("
    SELECT ID, AnswerText, CorrectAnswer
    FROM ACTestAnswers
    WHERE QuestionID = ?
    ORDER BY SortOrder
");

# Irrelevant parts skipped

for(my $i = 0; $i < scalar @questions; $i++){
    my $qCount = 1;
    my $qID = $questions[$i][0];
    my $hideClass = "hide";

    if($i == 0){ …

我正在尝试使用 Perl 但不使用 CGI 或任何其他框架来创建一个标准论坛风格的网站。我之前见过一个名为“cookies.pl”的脚本，但找不到任何有关它的文档。有没有一种方法可以仅使用核心模块来设置/读取 cookie？