353 |
foreach my $fld (keys %{ $rec }) { |
foreach my $fld (keys %{ $rec }) { |
354 |
$self->{_stats}->{fld}->{ $fld }++; |
$self->{_stats}->{fld}->{ $fld }++; |
355 |
|
|
356 |
$log->logdie("invalid record fild $fld, not ARRAY") |
#$log->logdie("invalid record fild $fld, not ARRAY") |
357 |
unless (ref($rec->{ $fld }) eq 'ARRAY'); |
next unless (ref($rec->{ $fld }) eq 'ARRAY'); |
358 |
|
|
359 |
foreach my $row (@{ $rec->{$fld} }) { |
foreach my $row (@{ $rec->{$fld} }) { |
360 |
|
|
550 |
} |
} |
551 |
|
|
552 |
$o; |
$o; |
553 |
} sort { $a <=> $b } keys %{ $s->{fld} } |
} sort { |
554 |
|
if ( $a =~ m/^\d+$/ && $b =~ m/^\d+$/ ) { |
555 |
|
$a <=> $b |
556 |
|
} else { |
557 |
|
$a cmp $b |
558 |
|
} |
559 |
|
} keys %{ $s->{fld} } |
560 |
); |
); |
561 |
|
|
562 |
$log->debug( sub { dump($s) } ); |
$log->debug( sub { dump($s) } ); |