Question

请教perl 遍历大数组内存激增的问题

我建立了两个大数组，@array1 和@array2，元素个数都是130,000,000。每个数组内的元素只有0或者1，在输出的时候内存激增。详见代码：
my @array1 = (0) x 130000000;
my @array2 = (0) x 130000000;
{
设置条件，符合条件的将数组内对应的值改为1；
}
#至此，内存消耗量一致维持稳定，在9.1G左右
for (my $d=1;$d<=130000000;$d++) {
print "$d\t$array1[$d-1]\t$array2[$d-1]\n";
}
#在这个过程中，内存一下子从9.1G激增到30G，这个过程没有新的变量赋值，为什么内存一下子增这么多呢？我用的perl版本是5.8.8
请帮我找一下原因，谢谢！

Answer 1

如果你想要得到一个key下有很多array你这么做

Perl多维数组的语句

定义，赋值多维数组:
%hash1=(
key1=>[['a','b','c'],['d','e','f'],['g','h','i']] ,
key2=>[['j','k','l'],['m','n','o'],['p','q','r']]
);

输出:
print $hash1[0][0],"\n"; #结果输出 a
print $hash1[1][1],"\n"; #结果输出 n

定义多维数组:
%hash2=(
key1=>[$ref1,$ref2,$ref3] ,
key2=>[$ref4,$ref5,$ref6]
);

赋值:
$hash2[0][0]='x';
$hash2[0][1]='y';
$hash2[$ref1][2]='z';

输出:
print $hash2[$ref1][0],"\n"; #结果输出 x
print $hash2[$ref5][1],"\n"; # 结果输出 y
print $hash2[0][2],"\n"; #结果输出 z

这能使你清楚写你的代码。

追问

我用你的方法试了一下，建立二维数组耗费的内存比单纯两个数组更大，我的程序是因为内存超过极限挂掉的。谢谢。

Answer 2

Perl != C/C++
==============
use strict;
foreach (0..130_000_000) {
print ($_+1), "\t", "$array1[$_]\t", "$array2[$_]\n";
}

追问

这跟我当初写的那样有什么区别吗？还请详细说一下，为什么用列表的方式打印对内存会有改善呢？

追答

有本质上的区别；因为Perl和C对内存的优化很不相同；相当于用日本汉字写汉语，看着差不多，本质完全不一样。。。

详见 Perldoc "Perl Internals"