23 |
# indexer, so it's save to leave type="" undefiend |
# indexer, so it's save to leave type="" undefiend |
24 |
# - lookup will (of course) return one or more values |
# - lookup will (of course) return one or more values |
25 |
|
|
26 |
|
use warnings; |
27 |
|
use strict; |
28 |
|
|
29 |
sub mem_lookup { |
sub mem_lookup { |
30 |
my @out; |
my @out; |
31 |
foreach (@_) { |
foreach (@_) { |
61 |
my ($pre,$k,$post) = ($1,$2,$3); |
my ($pre,$k,$post) = ($1,$2,$3); |
62 |
if ($main::cache->{mem_lookup}->{$k}) { |
if ($main::cache->{mem_lookup}->{$k}) { |
63 |
#print STDERR "## mem_lookup fetch $k == ".join("|",@{$main::cache->{mem_lookup}->{$k}})."\n"; |
#print STDERR "## mem_lookup fetch $k == ".join("|",@{$main::cache->{mem_lookup}->{$k}})."\n"; |
64 |
foreach my $v (@{$main::cache->{mem_lookup}->{$k2}}) { |
foreach my $v (@{$main::cache->{mem_lookup}->{$k}}) { |
65 |
push @out,$pre.$v.$post; |
push @out,$pre.$v.$post; |
66 |
} |
} |
67 |
} |
} |
74 |
} |
} |
75 |
#print STDERR "mem_lookup dump: ",Dumper($main::cache->{mem_lookup}),"\n"; |
#print STDERR "mem_lookup dump: ",Dumper($main::cache->{mem_lookup}),"\n"; |
76 |
#print STDERR "out: ".Dumper(@out)."\n" if (@out); |
#print STDERR "out: ".Dumper(@out)."\n" if (@out); |
77 |
return @out; |
return wantarray ? @out : shift @out; |
78 |
} |
} |
79 |
|
|
80 |
1; |
1; |