arrays - 如何将从 DB 检索到的数据写入 2D 数组，以及如何在 Perl 中将其检索回？

Question

我在下面尝试将数据写入二维数组（array_source），但最终变成了一维数组（array_source）。下面是代码片段，请查看并告诉我将其写入二维数组的方法，以便它可以。

$DBHd = DBI->connect( "dbi:Oracle:host=$host;port=$port;sid=$SID", $user_name, $password);
$DBSth = $DBHd->prepare("SELECT EMP_ID,sal FROM emp");
$DBSth->execute();
my @array_temp;
my @array_source; # Should be 2D array and it should contain both values
my @array_source_in; # Should contain only employee IDS alone

while (my @array= $DBSth->fetchrow_array())
{
    push (@array_source, @array[0,1]);
    push (@array_source_in, @array[0]);
};

 print "Data in source : @array_source";
   print "\n";
 print "Data in input : @array_source_in";

一旦将数据检索到 array_source 中，如何将其与另一个 2D 数组进行比较并列出匹配集？

例子 ：

阵列 1 - 源阵列 [100 5100、101 5100、102 6000、104 7879、444 287299、771 111]

数组 2 - 应与源进行比较 [100 5100, 101 5200, 102 0, 772 800, 104 7879]

数组 3 - 这应该是输出 - 单维 [100, 104]

请为上述数组保留对齐，并将 1 和 2 视为二维，将 3 视为一维。

Answer 1

push (@array_source, @array[0,1]);应该变成push (@array_source, [@array[0,1]]);- 你想将一个新数组推到顶级数组上。