From 83e782d4a74a6638bb9d70c9e55d0da3f090ae85 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 26 Feb 2019 09:25:49 +0100 Subject: [PATCH] added IP address as first column --- xq.pl | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/xq.pl b/xq.pl index 854f21f..5245ab2 100755 --- a/xq.pl +++ b/xq.pl @@ -35,23 +35,24 @@ warn "# info=",dump($info) if $debug; my @headers = @{ $info->{hdrs} }; unshift @headers, 'id' if $op eq 'list'; +unshift @headers, 'IP'; print join("\t", @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] ]; + $l->[3] .= ':' . $info->{stats}->[ $l->[3] ]; + $l->[4] .= ':' . $info->{types}->[ $l->[4] ]; - print join("\t", @$l), "\n"; + 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] ]; + $l->[2] .= ':' . $info->{stsAry}->[ $l->[2] ]; + $l->[3] .= ':' . $info->{types}->[ $l->[3] ]; - print join("\t", @$l),"\n"; + print join("\t", $ip, @$l),"\n"; } -- 2.20.1