OpenForum RSS: netflow 5.0 unix_secs, sys_uptime, first,last

netflow 5.0 unix_secs, sys_uptime, first,last (zloyadmin)

Fri, 05 Apr 2013 08:33:54 GMT

date -d @1365105615

netflow 5.0 unix_secs, sys_uptime, first,last (deadka)

Wed, 06 May 2009 08:16:49 GMT

>+ �� ݣ flow-nprint �� ̣�� - ��
>� ��

��, �� .

netflow 5.0 unix_secs, sys_uptime, first,last (sm00th1980)

Tue, 05 May 2009 17:01:46 GMT

+ �� ݣ flow-nprint �� ̣�� - ��

netflow 5.0 unix_secs, sys_uptime, first,last (sm00th1980)

Tue, 05 May 2009 17:00:25 GMT

#!/usr/bin/perl
#version 0.1
#Extract from flow

use IO::File;
use Time::localtime;
use Time::Local;

$tm=localtime();
$year = $tm->year+1900;

$dir = "/dir_with_flow_files/";
$file_out = "./uplink.txt";

opendir(DIR, $dir) or die "can't opendir $dir: $!";
while (defined($file = readdir(DIR))) {

if(substr($file,0,6) eq 'ft-v05'){
@files = (@files,$file);
# print file, "\n";
}
}
closedir(DIR);

open(FILE, ">$file_out");

foreach $file (@files) {
#Read flow-data from file
$raw_data=`/usr/local/bin/flow-print -f 5 < $dir$file`;
#Read flow-data from file

chomp($raw_data);
@string=split(/\n/,$raw_data);
$length_array = @string;

for ($i = 2; $i<$length_array; $i++){

( $start_time,$end_time, $src_if, $src_ip, $src_port,
$dst_if, $dst_ip, $dst_port, $_, $_, $packets, $size) = split(/\s+/,$string[$i]);

$day = substr($start_time,2,2);
$month = substr($start_time,0,2);

($hour, $min, $sec) = split(":",substr($start_time,5,8)

netflow 5.0 unix_secs, sys_uptime, first,last (sm00th1980)

Tue, 05 May 2009 16:56:57 GMT

>� �� ...�ӣ ��
>�� .
>
>flow-print -f 5 < flow_bla_bla > flow.txt
>
>� flow.txt �� perl �� 2 ��
>+ ��.
>�� . �� +��.

� �� localtime

netflow 5.0 unix_secs, sys_uptime, first,last (sm00th1980)

Tue, 05 May 2009 16:56:28 GMT

� �� ...�ӣ �� .

flow-print -f 5 < flow_bla_bla > flow.txt

� flow.txt �� perl �� 2 �� + ��.
�� . �� +��.