perl快速占用内存

among29

现在要进行某个系统的性能测试，需要找个程序把系统资源吃光。快速占用cpu和内存。

这个程序：

1. 
   
2. my $s = 100;
   
3. open FILE, "<file.txt" or die "open error";
   
4. 
   
5. my @line = <FILE>;
   
6. 
   
7. ## print "@line \n";
   
8. 
   
9. while (1) {
   
10.     $s = $s x 5;
    
11.     $s = $s / 5;
    
12. }
    
13. 
    
14. close FILE;
    

复制代码

这个程序： cpu倒是很快就吃光了，读的那个文件有600M，但是读进去的时候很慢。
半天才占用了50多m，有没有办法可以快速占用到900m啊，系统有1g的内存。

zhlong8

占用内存你为什么要读文件，直接在内存里面连接字符串不就行了

1. my $s = '1';
   
2. while (1) {
   
3.     $s x= 5;
   
4. }
   

复制代码

我还没反应过来就已经out of memory 了，不过应该是需求的块太大了无法分配，内存占用量并没有升的太高

1. my @a;
   
2. while (1) {
   
3.     push @a, rand;
   
4. }

复制代码

这个CPU和内存会直线上升，不过我在win下会用到交换文件内存占用几百M又会减小然后再增长

among29

现在的问题是cpu比较好搞，一个循环都能搞定。

内存太多了，就out of memory了，就自动推出了。
我想让程序在800-900m之间平稳运行。
这样才能做测试呢。。

zhlong8

按一个浮点数 40byte 构造个数组，然后死循环试下？

我机器上1000W占300多M

1. my @a;
   
2. 
   
3. for ( 0 .. 1000_0000) {
   
4.     push @a, rand;
   
5. }
   
6. 
   
7. my $n = 0;
   
8. while (1) {
   
9.     $n++;
   
10. }

复制代码

among29

感谢楼上，我刚才自己搞了个和你类似的。。

1. my @a;
   
2. 
   
3. foreach (1..30000000)
   
4. {
   
5.         push @a,1234567890;
   
6. }
   
7. 
   
8. my $s = 100;
   
9. while (1)
   
10. {
    
11.     $s = $s x 5;
    
12.     $s = $s / 5;
    
13. }

复制代码

查不多占用600多m的内存。
正在做稳定的测试。。好像过一会，内存会全部释放，cpu的还占着。。

wind_ch

1. 
   
2. #打开个1M的文件
   
3. open FILE, "<file";
   
4. my $content;
   
5. {
   
6.     local $/ = undef;
   
7.     $content = <FILE>;
   
8. }
   
9. my $i = 1;
   
10. my %hash;
    
11. while($i < 600){
    
12.     $hash{$i} = $content. $i;
    
13.     $i++;
    
14. }
    
15. 
    
16. while(1){
    
17.     $i = $i *5;
    
18.     $i = $i/5;
    
19. }
    

复制代码

改变$i的上限值就可以占用需要的内存, 不过在其他程序跑的时候会不会稳定持有就不知道了.