160 |
if ( my $regex = $self->{delimiters_regex} ) { |
if ( my $regex = $self->{delimiters_regex} ) { |
161 |
|
|
162 |
foreach my $v (@{ $rec->{$f} }) { |
foreach my $v (@{ $rec->{$f} }) { |
|
warn "## v = ", dump( $v ); |
|
163 |
my $l = _pack_subfields_hash( $v, 1 ); |
my $l = _pack_subfields_hash( $v, 1 ); |
|
warn "## $l [$regex]\n"; |
|
164 |
my $template = ''; |
my $template = ''; |
165 |
$l =~ s/$regex/$template.=$1/eg && warn "## new: $l\n"; |
$l =~ s/$regex/$template.=$1/eg; |
166 |
warn "## template: $template\n"; |
# warn "## template: $template\n"; |
167 |
$self->{_delimiters_templates}->{$f}->{$template}++ if ( $template ); |
$self->{_delimiters_templates}->{$f}->{$template}++ if ( $template ); |
168 |
} |
} |
169 |
|
|