use strict;
my @fields = (
- [ "_avg", "FLOAT", " - Average" ],
- [ "_stdev", "FLOAT", " - Standard deviation" ],
- [ "_n", "UINT", " - Number of samples" ]
+ [ "_n", "UINT", " - Number of samples", 4 ],
+ [ "_s", "UINT", " - Sum of samples", 8 ],
+ [ "_ss", "UINT", " - Sum of squared samples", 8 ],
);
my $file = $ARGV[0] or die "Syntax: $0 <file>\n";
my $descr = $4;
my @f;
if ($counter) {
- @f = [ "", "UINT", "" ];
+ @f = [ "", "UINT", "", 4];
} else {
@f = @fields;
}
my $N = uc $n;
my $ftype = $f->[1];
my $fdesc = $f->[2];
- print "$nr, IPFIX_FT_WPROBE_$rfield$N, 4, IPFIX_CODING_$ftype, \"$nfield$n\", \"$descr$fdesc\"\n";
+ my $size = $f->[3];
+ print "$nr, IPFIX_FT_WPROBE_$rfield$N, $size, IPFIX_CODING_$ftype, \"$nfield$n\", \"$descr$fdesc\"\n";
}
};
}