Perl 如何释放读取的xml文件内存（XML:Simple模块）？

brant_chen

我用的是XML::Simple。

我发现，我用（xml文件有2MB左右）

$xml_file_content = XMLin($xml_name);

后，内存涨了很多，我就把要读的内容存到一个hash后，然后置
$xml_file_content = undef;
sleep 10; # 留点时间观察内存释放没有
结果发现内存灭有释放呢？
请问怎么释放啊？
谢谢！

1. #!/usr/bin/perl
   
2. use XML::Simple;
   
3. use Data::Dumper;
   
4. 
   
5. my %table;
   
6. my $xml_file1="I18n.tst";
   
7. my $xml_file2="I18n2.tst";
   
8. my $xml_name="List.xml";
   
9. my $xml_file_content=undef;
   
10. 
    
11. $xml_file_content = XMLin($xml_name);
    
12. 
    
13. $table{$xml_file1}=[] unless exists $table{$xml_file1};
    
14. $table{$xml_file2}=[] unless exists $table{$xml_file2};
    
15. 
    
16. foreach my $key (keys (%{$xml_file_content->{$xml_file1}->{'en_iso-8859-1'}})){
    
17.    print "test1:$key". "\n";
    
18.    print "test12:$xml_file_content->{$xml_file1}->{'en_iso-8859-1'}->{$key}\n";   
    
19.    push @{$table{$xml_file1}}, "[".$key."]".$xml_file_content->{$xml_file1}->{'en_iso-8859-1'}->{$key};
    
20. }
    
21. 
    
22. foreach my $key (keys (%{$xml_file_content->{$xml_file2}->{'en_iso-8859-1'}})){
    
23.    print "test2:$key". "\n";
    
24.    print "test22:$xml_file_content->{$xml_file2}->{'en_iso-8859-1'}->{$key}\n";   
    
25.    push @{$table{$xml_file2}}, "[".$key."]".$xml_file_content->{$xml_file2}->{'en_iso-8859-1'}->{$key};
    
26. }
    
27. 
    
28. $xml_file_content=undef;
    
29. 
    
30. foreach $xml_file (sort keys %table) {
    
31.   print "\n$xml_file:\n";
    
32.   my @cities = @{$table{$xml_file}};
    
33.   print "test3:" . join ', ', sort @cities;
    
34.   print ".\n";
    
35. }
    
36. sleep 10;
    
37. exit 0;

复制代码

wfnh

因为存在$xml_file_content的引用··所以··没释放··除非你自己undef···

brant_chen

有两个疑问：
1. 貌似我上面是遍历xml_file的值，然后进行赋值到我自己的%table里面的数组的。为什么是引用呢？
2. 请问如何自己undef呢？

非常感谢！

wfnh

有两个疑问：
1. 貌似我上面是遍历xml_file的值，然后进行赋值到我自己的%table里面的数组的。为什么是引用 ...
brant_chen 发表于 2010-08-22 10:51

你可以看一下perl的回收机制嘛·····
要undef的话 直接 undef $xml_file_content