perl - 如何在perl脚本中正确使用fetchrow_arrayref？

Question

我在 Perl 脚本中使用“fetchrow_arrayref”时陷入困境。谁能指出我在脚本中哪里出错了？如果您能告诉我任何信息，我将不胜感激。谢谢。

我面临的问题是:

(1) 打印 $id; <-这不会打印 $id 的内容。

(2) 打印 "$list[1]"; <-这会打印 ARRAY(0x8da6978) 而不是实际内容。

(3) 反向(@list); <-这不会反转@list 的内容。

(4) 打印“@{$_}\n”; <-“\n”不起作用。另外为什么我们需要@{}？

(5) 打印“\n”； <-这不太有效。

(6) 打印“@list”； <-这将打印 ARRAY(0x8da6978)。

(7) 打印转储器(@inverse); <-打印正常，但数组的内容没有反转。

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Data::Dumper;

....

my $dbh = DBI->connect($dbname, $dbuser, $dbpassword) || die "Error $DBI::errstr";
my $sth = $dbh->prepare("SELECT * FROM name WHERE id = 11");
$sth->execute;

my @list = ();

while(my $element = $sth->fetchrow_arrayref){

    push(@list, $element);

}


$sth->finish;
$dbh->disconnect;

my ($id, $name, $email, $telephone) = @list;

print "Content-Type: text/html; charset=UTF-8\n\n";

print $id;                                           (problem 1)

print "$list[1]";                                    (problem 2)

my @inverse = reverse(@list);                        (problem 3)

foreach (@inverse){

    print "@{$_} \n";                                (problem 4)

}

print "\n";                                          (problem 5)

print "@list";                                       (problem 6)

print Dumper(@inverse);                              (problem 7)

exit;

Answer 1

列表中的每一项都是对包含数据库表一行数据的数组的引用。

这个:

my ($id, $name, $email, $telephone) = @list;

似乎正在尝试处理表格的一行。

您需要对 @list 的每个成员执行此操作，而不是对 @list 本身执行此操作。

for my $row (@list) {
    my ($id, $name, $email, $telephone) = @$row;
    print $id;
}