use Tie::TwoLevelHash; use strict; use warnings; my $hash; my $file = "datafile"; tie (%hash, 'Tie::TwoLevelHash', $file, 'rw'); $hash{PEOPLE} = {YOU => "me"}; $hash{PEOPLE} = {WHO => "cares"}; $hash{PEOPLE} = {WHO => "works"}; $hash{ME} = { I => "See"}; __DATA__ ME I: See PEOPLE WHO: works YOU: me
===========================================
Stumbleupon
In reply to Re: tieing HoH
by artist
in thread tieing HoH
by bugsbunny
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |