9 |
|
|
10 |
# FIXME out of memory without Sack::Digest |
# FIXME out of memory without Sack::Digest |
11 |
#$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} }; |
#$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} }; |
12 |
$out->{'C1#+'}->{ digest($_) }++ foreach @{ $rec->{C1} }; |
#$out->{'C1#+'}->{ digest($_) }++ foreach @{ $rec->{C1} }; |
13 |
|
|
14 |
|
|
15 |
$out->{'C1_country+'}->{ m{,\s+(\S+)\.$} && ucfirst(lc($1)) }++ foreach @{ $rec->{C1} }; |
$out->{'C1_country+'}->{ m{,\s+(\S+)\.$} && ucfirst(lc($1)) }++ foreach @{ $rec->{C1} }; |