in reply to storing data via 2 sibling keys
How about something like this:
Sample:package Tie::HashNKeys; use strict; sub TIEHASH { my $class = shift; bless {}, $class; } sub STORE { $_[0]->{ join $;, sort split /$;/, $_[1] } = $_[2]; } sub FETCH { $_[0]->{ join $;, sort split /$;/, $_[1] }; }
Is that kind of what you want?tie my %hash, 'Tie::HashNKeys'; $hash{'csUsers','csGroups'} = 'foo'; print $hash{'csGroups','csUsers'}; ## prints 'foo'
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: storing data via 2 sibling keys
by AidanLee (Chaplain) on Jun 19, 2001 at 01:09 UTC |
In Section
Seekers of Perl Wisdom