Re: How can I free the memory of a XML::Simple-Object

[Anonymous Monk]

Try

    CProcess->PrintProcessInfo("perl.exe");
    eval 'use XML::Simple';
    CProcess->PrintProcessInfo("perl.exe");
    eval 'no XML::Simple';
    CProcess->PrintProcessInfo("perl.exe");
    my $xs  = new XML::Simple();
    CProcess->PrintProcessInfo("perl.exe");
    my $root= $xs->XMLin('D:\xTools\test\xmltest.xml');
    CProcess->PrintProcessInfo("perl.exe");
    undef $xs;
    CProcess->PrintProcessInfo("perl.exe");
    undef $root;
    CProcess->PrintProcessInfo("perl.exe");
    
    print "\n##########\n";
    my $xs  = new XML::Simple();
    CProcess->PrintProcessInfo("perl.exe");
    my $root= $xs->XMLin('D:\xTools\test\xmltest.xml');
    CProcess->PrintProcessInfo("perl.exe");
    undef $xs;
    CProcess->PrintProcessInfo("perl.exe");
    undef $root;
    CProcess->PrintProcessInfo("perl.exe");