Question

我输入了以下代码：

my @resultsArray;
my @dataArray;
while (my ($id, $originLat, $originLng, $compensation ) = $sth->fetchrow_array) {
    @dataArray = ($id, $originLat, $originLng, $compensation);
    print "ID: $id Lat: $originLat Lng: $originLng Compensation: $compensation\n";
    print "Data Array: @dataArray\n";
    #the above code words.
    #I declare 
    push (@resultsArray, @dataArray);
}

my (@r1, @r2, @r3, @r4);
#issue here
for  (@resultsArray) {
    @r1 = pop(@resultsArray);
    @r2 = pop(@resultsArray);
    @r3 = pop(@resultsArray);
    @r4 = pop(@resultsArray);               

    print "ID: $r4[0] Lat: $r3[0] Lng: $r2[0] Compensation: $r1[0]\n";
    #@r1 = ();
}

以上代码有效。数组@dataArray被推送到@resultsArray堆栈，并分别弹出到@r1, @r2, @r3, @r4。然而，这是可怕的代码。有没有更好的方法，更简洁的方式，更少的线条仍然可读，而且通常更专业？

我正在寻求提高自己的技能。如果我出现这样的话，我觉得我可能会成为房间的笑柄。

Answer 1

您只需要学习如何使用引用。这是用数组引用重写的代码：

my @resultsArray;
while (my ($id, $originLat, $originLng, $compensation ) = $sth->fetchrow_array) {
    my $dataArray = [$id, $originLat, $originLng, $compensation];
    print "ID: $id Lat: $originLat Lng: $originLng Compensation: $compensation\n";
    print "Data Array: @$dataArray\n";
    #the above code words.
    #I declare 
    push @resultsArray, $dataArray;
}

for my $r (@resultsArray) {
    print "ID: $r->[0] Lat: $r->[1] Lng: $r->[2] Compensation: $r->[3]\n";
}

Perl中的数组数组最好表示为数组引用的数组。

这里的魔力是

my $dataArray = [$id, $originLat, $originLng, $compensation];

这将创建一个包含四个值的匿名数组，然后将标量 $dataArray设置为指向匿名数组。然后，此引用被推送到@resultsArray。 @resultsArray现在是一个标量数组，恰好是对其他数组的引用。这些引用可以使用->[n]构造解引用来获取数组的各个成员。

创建数组数组，然后检索值

1 个答案: