1 |
|
|
2 |
#$out->{fields}->{$_}++ foreach keys %$rec; |
$out->{ 'fields +' }->{$_}++ foreach keys %$rec; |
3 |
|
|
4 |
#$out->{years}->{ $rec->{PY}->[0] }++; |
#$out->{years}->{ $rec->{PY}->[0] }++; |
5 |
|
|
6 |
#$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} }; |
#$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} }; |
7 |
|
|
8 |
$out->{SC}->{ $_ }++ foreach @{ $rec->{SC} }; |
#$out->{SC}->{ $_ }++ foreach @{ $rec->{SC} }; |
9 |
|
|
10 |
# XXX dump first record |
# XXX dump first record |
11 |
#$out->{_debug_rec} ||= $rec; |
#$out->{_debug_rec} ||= $rec; |
12 |
|
|
13 |
#push @{ $out->{TI} }, $rec->{TI}; |
#push @{ $out->{TI} }, $rec->{TI}; |
14 |
|
|
15 |
#push @{ $out->{_debug_id} }, $rec->{'000'}; |
#push @{ $out->{_debug}->{id} }, $rec->{'000'}; |