3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
|
use WebPAC::Common; |
|
|
|
|
6 |
use base qw/WebPAC::Common WebPAC::Normalize/; |
use base qw/WebPAC::Common WebPAC::Normalize/; |
7 |
use File::Slurp; |
use File::Slurp; |
8 |
use Data::Dumper; |
use Data::Dumper; |
40 |
'val' => 'v900' }, |
'val' => 'v900' }, |
41 |
]; |
]; |
42 |
|
|
43 |
|
Just for a reference, lookup data is internally stored in |
44 |
|
C<< $self->{'_lookup_data'} >>. |
45 |
|
|
46 |
=head1 FUNCTIONS |
=head1 FUNCTIONS |
47 |
|
|
122 |
my $key = $self->fill_in($rec,$i->{'key'}) || next; |
my $key = $self->fill_in($rec,$i->{'key'}) || next; |
123 |
my @val = $self->fill_in($rec,$i->{'val'}) || next; |
my @val = $self->fill_in($rec,$i->{'val'}) || next; |
124 |
$log->debug("stored $key = ",sub { join(" | ",@val) }); |
$log->debug("stored $key = ",sub { join(" | ",@val) }); |
125 |
push @{$self->{'lookup'}->{$key}}, @val; |
push @{$self->{'_lookup_data'}->{$key}}, @val; |
126 |
} |
} |
127 |
} else { |
} else { |
128 |
my $key = $self->fill_in($rec,$i->{'key'}) || next; |
my $key = $self->fill_in($rec,$i->{'key'}) || next; |
129 |
my @val = $self->fill_in($rec,$i->{'val'}) || next; |
my @val = $self->fill_in($rec,$i->{'val'}) || next; |
130 |
$log->debug("stored $key = ",sub { join(" | ",@val) }); |
$log->debug("stored $key = ",sub { join(" | ",@val) }); |
131 |
push @{$self->{'lookup'}->{$key}}, @val; |
push @{$self->{'_lookup_data'}->{$key}}, @val; |
132 |
} |
} |
133 |
} |
} |
134 |
|
|
161 |
while (my $f = shift @in) { |
while (my $f = shift @in) { |
162 |
if ($f =~ $self->{'LOOKUP_REGEX_SAVE'}) { |
if ($f =~ $self->{'LOOKUP_REGEX_SAVE'}) { |
163 |
my $k = $1; |
my $k = $1; |
164 |
if ($self->{'lookup'}->{$k}) { |
if ($self->{'_lookup_data'}->{$k}) { |
165 |
foreach my $nv (@{$self->{'lookup'}->{$k}}) { |
foreach my $nv (@{$self->{'_lookup_data'}->{$k}}) { |
166 |
my $tmp2 = $f; |
my $tmp2 = $f; |
167 |
$tmp2 =~ s/lookup{$k}/$nv/g; |
$tmp2 =~ s/lookup{$k}/$nv/g; |
168 |
push @in, $tmp2; |
push @in, $tmp2; |