mirror of
git://projects.qi-hardware.com/openwrt-xburst.git
synced 2025-04-21 12:27:27 +03:00
add libipfix
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@15049 3c298f89-4303-0410-b956-a3cf2f4a3e73
This commit is contained in:
33
package/libipfix/extra/append-wprobe-ie.pl
Normal file
33
package/libipfix/extra/append-wprobe-ie.pl
Normal file
@@ -0,0 +1,33 @@
|
||||
use strict;
|
||||
|
||||
my @fields = (
|
||||
[ "avg", "FLOAT", "Average" ],
|
||||
[ "stdev", "FLOAT", "Standard deviation" ],
|
||||
[ "n", "UINT", "Number of samples" ]
|
||||
);
|
||||
|
||||
my $file = $ARGV[0] or die "Syntax: $0 <file>\n";
|
||||
-f $file or die "File not found\n";
|
||||
my $last_ie = 0;
|
||||
my $line;
|
||||
open IES, "<$file" or die "Can't open file";
|
||||
while ($line = <IES>) {
|
||||
$line =~ /^(\d+)\s*,/ and $last_ie = $1;
|
||||
}
|
||||
close IES;
|
||||
while (<STDIN>) {
|
||||
/^(\w+),\s*(\w+),\s*(.+)$/ and do {
|
||||
my $rfield = $1;
|
||||
my $nfield = $2;
|
||||
my $descr = $3;
|
||||
foreach my $f (@fields) {
|
||||
my $nr = ++$last_ie;
|
||||
my $n = $f->[0];
|
||||
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";
|
||||
}
|
||||
};
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user