如何控制perl程序的内存？

glauke

读取一个全是字符的100M大小的文件存到一个标量里，然后按空分开存到一个数组里，为什么内存飞涨呢？大概要十几G的内存。
理论上是不需要这么多内存的啊？perl对此到底是如何分配内存的啊？请求高人指点！谢谢！

toniz

上源码

DQP

上代码

glauke

回复 2# toniz


    my $a;
    while (<>){
            chomp;
             $a .= $_;
    }

    my @a = split //, $a;

这就是主要的代码。

toniz

这代码肯定完蛋~~

DQP

回复 4# glauke


    那个$a看上去没有什么意义.  还不确定占用内存大是否和反复拼接字符串有关, 去掉试验下.

1. 
   
2. my @foo;
   
3. while(<>){
   
4.   chomp;
   
5.   push @foo, split //, $_;
   
6. }
   

复制代码

glauke

回复 5# toniz


    为什么呢？除了楼下的方法还有比较高级的写法吗？虚心请教！
   关键我的疑惑是就算存到变量里也不应占用如此大内存啊？这是怎么回事呢？

toniz

问题在这里：split //, $_;
100M文件该有多少字符啊。。。。

toniz

这个什么写法效率应该都差不多了。
将文件的每个字符都存到一个数组，这个数组的下标该有多大。。。。耗光内存很正常的。

dugu072_cu

perl 不是一个字符就是一个char的内存，把你的理论值乘以10，得到的才是perl实际可能消耗内存的最小值……
perl的标量会有许多内容，正是因为消耗了大量的空间，才能取得时间上的高效