30 lines
439 B
Awk
30 lines
439 B
Awk
|
#! /usr/bin/gawk -i
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
FS=";"
|
||
|
|
}
|
||
|
|
|
||
|
|
/^Uptime/ {
|
||
|
|
for(i = 1; i <= NF; i++) {
|
||
|
|
patsplit($i, HH, /[^[(]+[^ [(]/)
|
||
|
|
H = HH[1]
|
||
|
|
HEAD[H] = i
|
||
|
|
HEADI[i] = H
|
||
|
|
print "Column", i, "\"" H "\"" > "/dev/stderr"
|
||
|
|
}
|
||
|
|
NHEAD = NF
|
||
|
|
}
|
||
|
|
|
||
|
|
function ifV() {
|
||
|
|
if (!NF || NF != NHEAD) return 0
|
||
|
|
for (H in HEAD) VV[H] = $(HEAD[H])
|
||
|
|
return 1
|
||
|
|
}
|
||
|
|
|
||
|
|
function ifH(H) {
|
||
|
|
if (!NF || NF != NHEAD) return 0
|
||
|
|
C = HEAD[H]
|
||
|
|
V = $(C)
|
||
|
|
return 1
|
||
|
|
}
|
||
|
|
|