my $ip = shift @ARGV || '10.60.3.35';
my $debug = $ENV{DEBUG} || 0;
-
+my $sep = $ENV{SEP} || "\t";
my $op = shift @ARGV || 'list';
unshift @headers, 'id' if $op eq 'list';
unshift @headers, 'IP';
-print join("\t", @headers),"\n";
+print join($sep, @headers),"\n";
foreach my $l ( @{ $info->{info} } ) {
warn "## l=",dump($l) if $debug > 1;
$l->[3] .= ':' . $info->{stats}->[ $l->[3] ];
$l->[4] .= ':' . $info->{types}->[ $l->[4] ];
- print join("\t", $ip, @$l), "\n";
+ print join($sep, $ip, @$l), "\n";
}
foreach my $l ( @{ $info->{jHst} } ) {
$l->[2] .= ':' . $info->{stsAry}->[ $l->[2] ];
$l->[3] .= ':' . $info->{types}->[ $l->[3] ];
- print join("\t", $ip, @$l),"\n";
+ print join($sep, $ip, @$l),"\n";
}