Hello,
I have the a hash of hash of ... of array
(see below hwo I can list it) whose i wish to free the memory at one
point. Right now the desallocation is not clean, ie that evert time that
I reallocate the hash, the programme requires more and mor space and
finally swap the memory !
How can I free the mempry right. I already tried several trivial
thing without success:
Thank for your help.
foreach my $sig (sort keys %$trans) {
foreach my $vt_u (sort keys %{$$trans {$sig}}) {
foreach my $Nu (sort keys %{$$trans {$sig}{$vt_u}}) {
foreach my $ku (sort keys %{$$trans {$sig}{$vt_u}{$Nu}}) {
foreach my $vt_l (sort keys %{$$trans {$sig}{$vt_u}{$Nu}{$ku}}) {
foreach my $Nl (sort keys %{$$trans {$sig}{$vt_u}{$Nu}{$ku}{$vt_l}}) {
foreach my $kl (sort keys %{$$trans
{$sig}{$vt_u}{$Nu}{$ku}{$vt_l}{$Nl}}) {
print "$sig, $vt_u, $Nu, $ku, $vt_l, $Nl, $kl: ", $$trans
{$sig}{$vt_u}{$Nu}{$ku}{$vt_l}{$Nl}{$kl} [0], " ", $$trans {$sig}{$vt_u}{$Nu}{$ku}{$vt_l}{$Nl}{$kl}
[1], "\n" ;
}
}
}
}
}
}
}
--
---
==========================================================================
Patrick DUPRÉ | |
Department of Chemistry | | Phone: (44)-(0)-1904-434384
The University of York | | Fax: (44)-(0)-1904-432516
Heslington | |
York YO10 5DD United Kingdom | | email: pd...@york.ac.uk
==========================================================================
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
