in reply to storing and using LoL path
If I'm understanding you correctly (which I'm not at all sure), what you want is something like could be achieved with the following if/elsif... structure
sub lookup { my ($type, $ref) = @_; if ($type eq 'typeA') { return $ref->{key1}[3]{key2}; } elsif ($type eq 'typeB') { return $ref->{key3}; } elsif ($type eq 'typeC') { return $ref->[1]{key4}; } # ... }
i.e. with the following minimal sample data
my @LoANY = ( { type => "typeA", data => { key1 => [0,1,2, { key2 => "Value1" } ] } }, { type => "typeB", data => { key3 => "Value2" } }, { type => "typeC", data => [0, { key4 => " Value3" } ] }, # ... );
this loop
for my $elem (@LoANY) { print lookup($elem->{type}, $elem->{data}), "\n"; }
would print
Value1 Value2 Value3
But you think the if/elsif thingy is not perlish enough, would not scale decently up to a gazillion of different types, or some such... (?)
In that case, one other way to do it would be to set up little "accessor" functions (not in the OO sense, thus the quotes), which you would index via the hash, e.g.
my %map = ( typeA => sub { $_[0]->{key1}[3]{key2} }, typeB => sub { $_[0]->{key3} }, typeC => sub { $_[0]->[1]{key4} }, # ... );
In that case, you could write the above loop as
for my $elem (@LoANY) { print $map{$elem->{type}}->($elem->{data}), "\n"; }
The type would select the appropriate function (via %map), which "knows" how to get at the desired data. The data (i.e.the toplevel ref to some data structure) is passed to the function as argument.
I'm sure that once you confirm this is what you want to do, other Monks will come up with various other solutions... :)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: storing and using LoL path
by rootcho (Pilgrim) on May 25, 2007 at 23:51 UTC | |
by almut (Canon) on May 26, 2007 at 02:03 UTC |