#!/usr/bin/perl
use strict;
use ExtUtils::testlib;
use Net::NfDump;
my (%h, $flow);
if (@ARGV == 0) {
printf "Usage:\n $0 <nfdump_file> <nfdump_file> ... \n\n";
exit 1;
}
# create nfdump instance
$flow = new Net::NfDump(
InputFiles => [ @ARGV ],
Filter => 'any',
Fields => 'proto, bytes',
Aggreg => 1,
OrderBy => 'bytes' );
$flow->query();
# traverse all records
while (my ($proto, $bytes) = $flow->fetchrow_array() ) {
printf "%-5s %15d\n", $proto, $bytes/1000;
}
$flow->finish();