451 |
my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}"; |
my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}"; |
452 |
$max_fld = $v if ($v > $max_fld); |
$max_fld = $v if ($v > $max_fld); |
453 |
|
|
454 |
my $o = sprintf("%4d %d ~", $f, $v); |
my $o = sprintf("%4s %d ~", $f, $v); |
455 |
|
|
456 |
if (defined($s->{sf}->{$f})) { |
if (defined($s->{sf}->{$f})) { |
457 |
map { |
map { |
464 |
} |
} |
465 |
|
|
466 |
$o; |
$o; |
467 |
} sort { $a <=> $b } keys %{ $s->{fld} } |
} sort { $a cmp $b } keys %{ $s->{fld} } |
468 |
); |
); |
469 |
|
|
470 |
$log->debug( sub { Dumper($s) } ); |
$log->debug( sub { Dumper($s) } ); |