如何获取数组中存在的子数组的值

Question

我已经创建了一个数组，并将每个迭代的循环中的另一个数组推入其中。完成后，我想获取每个子数组和数组的值。

我使用的代码：

my $i;
my @carrierValuesAll="";

while (my @row = $sth->fetchrow_array()) {

    my @carrierValues=join(',', @row). "\n";
    push(@carrierValuesAll, @carrierValues);
}

$len = @carrierValuesAll;
for ($i = 0; $i < $len; $i = $i + 1) {
    print ("\@carrierValuesAll[$i] = $carrierValuesAll[$i]\n");
    print("\n");    
}

我获得的输出是：

@carrierValuesAll[1] = 1,1,https://au-sbc.trustidinc.com/tid,sbcLabStub,sbcLab,,SKY,0,2019-11-07 20:10:43,2021-07-02 04:39:43,TrustID Lab Oracle,Y,Y,Y,ivr.localdomain,Y,trustid

@carrierValuesAll[2] = 2,1,https://au-sbc.trustidinc.com/tid,sbcLab,sbcLab,,SKY,2,2019-11-07 20:10:43,2020-12-14 06:24:17,TrustID Lab Oracle,Y,Y,Y,ivr.localdomain,Y,admin

我尝试过的内容：

$len = @carrierValuesAll;
for ($i = 0; $i < $len; $i = $i + 1) {
    print ("\@carrierValuesAll[$i] = $carrierValuesAll[$i]\n");
    print("\n");    
    for (my $j=0;$j<$carrierValuesAll[$i];$j++) {
        print("\@carrierValuesAll[$j] = $carrierValuesAll[$j]\n");
        print("\n");
    }
}

在其中添加了一个嵌套循环，但它不会有帮助。

此输出是数据库＆amp;我正在尝试将其存储在数组中。

Answer 1

您在这里只有一个数组 - 嗯，您有第二个数组 variable ，但是您只在其中存储一个标量值。

让我们看一下您的代码：

 我的$ i;
我的 @carriervaluesall =“”;
 

声明$ i距使用的地方很遥远，这有点像代码气味。当然，它可以正常工作，但是Perl使您可以灵活地声明使用它们的变量 - 因此请使用它。

@CarrierValuesAll =“”不做您认为正在做的事情。我怀疑您认为它正在宣布一个空数组。但是实际上，它创建了一个包含一个空字符串的单个元素的数组。

  while（my @row = $ sth-＆gt; fetchrow_array（））{

    我的 @carrierValues = join（'，'， @row）。 “ \ n”;
    push（@carriervaluesall，@carriervalues）;
}
 

现在，您声明一个新数组，@CarrierValues，但是您给它一个值，该值从join（）返回。 join（）的全部要点是获取一个值列表（您的数据@Row），然后将其加入单个字符串。然后，您将单个字符串推到@CarrierValuesall的末尾。

从数组中存储join（）的结果是没有意义的。 join（）的结果仅是一个标量值。

因此，在此循环完成运行后，您有一个数组，@CarrierValuesall，其中包含数据库表中每个行的这些单字符串之一。这里没有“子阵列”。只是一系列弦。

然后，您通过打印@CarrierValuesall的内容来确认。

  $ len = @CarrierValuesall;
对于（$ i = 0; $ i＆lt; $ len; $ i = $ i + 1）{
    print（“ \ @carriervaluesall [$ i] = $ carrierValuesall [$ i] \ n”）;
    打印（“ \ n”）;    
}
 

这正是我所期望的。您可以从数据库中获取您从逗号分开的数据。

如果您不想要一个字符串，则不要使用join（）制作一个字符串。取而代之的是，取一份@row的副本，然后在您的数组中存储一个参考：

while (my @row = $sth->fetchrow_array()) {
    push(@carrierValuesAll, [ @row ]);
}

我不确定您想处理什么数组，但是您可以将其打印出来：

$len = @carrierValuesAll;
for (my $i = 0; $i < $len; $i = $i + 1) {
    print ("\@carrierValuesAll[$i] = @{$carrierValuesAll[$i]}\n");
    print("\n");    
}

请注意，我已经使用了@{$ crarierValuesall [$ i]}用于放置存储在$ carriervaluesall [$ i]的数组参考，然后将其变成一个数组然后我可以打印。

还要注意，我已经将$ i的声明移至循环的中，这是更有意义的。

但是，大多数Perl程序员不会将此“ C风格”用于循环，因为它看起来很恐怖并且很难理解。我将此代码写为：

for my $i (0 .. $#carrierValuesAll) {
    ...
}

我使用特殊变量$＃array，而不是计算数组的长度，然后记住停止一个迭代，这给了我阵列中的最后一个索引。