- printf $fmt,
- $l->[0], $l->[1], $l->[2], $info->{stats}->[ $l->[3] ], $info->{types}->[ $l->[4] ], $l->[5];
+ $l->[3] .= ':' . $info->{stats}->[ $l->[3] ];
+ $l->[4] .= ':' . $info->{types}->[ $l->[4] ];
+
+ print join("\t", $ip, @$l), "\n";
+}
+
+foreach my $l ( @{ $info->{jHst} } ) {
+ warn "## l=",dump($l) if $debug > 1;
+
+ $l->[2] .= ':' . $info->{stsAry}->[ $l->[2] ];
+ $l->[3] .= ':' . $info->{types}->[ $l->[3] ];
+
+ print join("\t", $ip, @$l),"\n";