view release on metacpan or  search on metacpan

examples/encode_v9.pl  view on Meta::CPAN

    ],
};

my $Header = {
                 Version => 9,
                 #SourceId => 11,
                 #PackageNum => 10,
                 SysUptime => int ( uptime() *1000 ),
             };


my @flow;
my @tmp = qw( 5 8126 17 0 22 10.2.1.1 5365 10.2.1.254  ) ;
my $uptime = int ( (uptime()- $back ) *1000 );
push @tmp  , $uptime + 5;
push @tmp  , $uptime;
push @flow , \@tmp;


my @tmp = qw( 7 1024 6 27 5555 10.2.1.1 53 10.2.1.3 ) ;

$uptime = int ( (uptime()- $back )*1000 );
push @tmp  , $uptime+5000;
push @tmp  , $uptime;
push @flow , \@tmp;


my @tmp = qw( 1 10024 6 27 6666 10.2.1.77 53 10.2.1.88 ) ;

$uptime = int ( (uptime()- $back )*1000 );
push @tmp  , $uptime+6000;
push @tmp  , $uptime;
push @flow , \@tmp;

my @tmp = qw( 1 300 6 27 123 10.2.1.177 53 10.2.1.188 ) ;

$uptime = int ( (uptime()- $back )*1000 );
push @tmp  , $uptime+6000;
push @tmp  , $uptime;
push @flow , \@tmp;


my @tmp = qw( 1 400 6 20 1230 10.2.1.177 53 10.2.1.188 ) ;

$uptime = int ( (uptime()- $back )*1000 );
push @tmp  , $uptime+6000;
push @tmp  , $uptime;
push @flow , \@tmp;

say Dumper(@flow);
my $encoded = Data::Netflow::encodeV9($Header, $TemplateV9 ,\@flow);
$sock_udp->send( $encoded );

 Data::Netflow::decode($encoded );


sub uptime
{
    return (
        split /\s/,
        do {local ( @ARGV, $/ ) = '/proc/uptime'; <>}
    )[0];
}