Solved

perl help needed

Posted on 2013-12-22
2
290 Views
Last Modified: 2013-12-26
I have developed a simple software and the output of software as given below ;

I watn to add two things to this software
1. I want to log last one minute , it will delete older then one minute records while binding.
2. I want to give more specific time after the second i want to give 5 number and make them in table format how should i do it

columns of tablewill be in the same order with : print  $date. "   ". $src_IP . " den " . $dst_IP . " adresine trafik gidiyor.(Kaynak Port : $udp_src_port Hedef Port : $udp_dst_port - Boyut : $packet_size Byte - Tcp Flag : $tcp_flags - Protokol : $IP_protocol)\n";




#use strict;
use warnings;
use Time::HiRes qw(time);
use POSIX qw(strftime);






open(my $fh, '-|', 'sflowtool -4 -p 3601 -l ') or die $!;
while (my $line = <$fh>) {
my $inputPort  = (split(",", $line))[2];
my $outputPort  = (split(",", $line))[3];
my $src_MAC = (split(",", $line))[4];
my $dst_MAC = (split(",", $line))[5];
my $ethernet_type = (split(",", $line))[6];
my $in_vlan = (split(",", $line))[7];
my $out_vlan = (split(",", $line))[8];
my $src_IP = (split(",", $line))[9];
my $dst_IP = (split(",", $line))[10];
my $IP_protocol = (split(",", $line))[11];
my $ip_tos = (split(",", $line))[12];
my $ip_ttl = (split(",", $line))[13];
my $udp_src_port  = (split(",", $line))[14];
my $udp_dst_port = (split(",", $line))[15];
my $tcp_flags = (split(",", $line))[16];
my $packet_size = (split(",", $line))[17];
my $IP_size = (split(",", $line))[18];
my $sampling_rate = (split(",", $line))[19];


my $t = time; my $date = strftime "%Y-%m-%d %H:%M:%S", localtime $t; $date .= sprintf ".%03d", ($t-int($t))*1000; # without rounding





print  $date. "   ". $src_IP . " den " . $dst_IP . " adresine trafik gidiyor.(Kaynak Port : $udp_src_port Hedef Port : $udp_dst_port - Boyut : $packet_size Byte - Tcp Flag : $tcp_flags - Protokol : $IP_protocol)\n";

}
close $fh;

Open in new window




2013-12-22 21:37:42.117   185.9.159.61 den 50.21.181.162 adresine trafik gidiyor.(Kaynak Port : 2276 Hedef Port : 3389 - Boyut : 507 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:37:42.296   185.9.159.61 den 88.230.235.187 adresine trafik gidiyor.(Kaynak Port : 5556 Hedef Port : 52634 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:42.296   185.9.159.61 den 50.20.75.170 adresine trafik gidiyor.(Kaynak Port : 1898 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:42.446   185.9.159.61 den 50.22.42.31 adresine trafik gidiyor.(Kaynak Port : 1814 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:37:42.447   185.9.159.61 den 50.22.35.103 adresine trafik gidiyor.(Kaynak Port : 2068 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:42.447   185.9.159.61 den 50.21.183.223 adresine trafik gidiyor.(Kaynak Port : 2117 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:42.514   185.9.159.61 den 50.20.186.168 adresine trafik gidiyor.(Kaynak Port : 1889 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:42.515   185.9.159.61 den 50.20.135.186 adresine trafik gidiyor.(Kaynak Port : 2866 Hedef Port : 3389 - Boyut : 93 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:37:42.820   185.9.159.61 den 50.20.170.234 adresine trafik gidiyor.(Kaynak Port : 3073 Hedef Port : 3389 - Boyut : 157 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:37:42.821   185.9.159.61 den 50.21.183.249 adresine trafik gidiyor.(Kaynak Port : 2250 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:42.961   185.9.159.61 den 50.22.12.146 adresine trafik gidiyor.(Kaynak Port : 3026 Hedef Port : 3389 - Boyut : 115 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:37:42.962   185.9.159.61 den 50.21.181.223 adresine trafik gidiyor.(Kaynak Port : 1727 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:42.962   185.9.159.61 den 50.20.59.34 adresine trafik gidiyor.(Kaynak Port : 2071 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:37:43.114   185.9.159.61 den 50.22.32.54 adresine trafik gidiyor.(Kaynak Port : 2495 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:37:43.114   185.9.159.61 den 50.20.56.146 adresine trafik gidiyor.(Kaynak Port : 4957 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:43.114   185.9.159.61 den 50.22.28.2 adresine trafik gidiyor.(Kaynak Port : 2410 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:43.305   185.9.159.61 den 50.20.33.46 adresine trafik gidiyor.(Kaynak Port : 2464 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:37:43.413   185.9.159.61 den 50.20.75.212 adresine trafik gidiyor.(Kaynak Port : 3252 Hedef Port : 3389 - Boyut : 74 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:37:43.413   185.9.159.61 den 50.20.51.253 adresine trafik gidiyor.(Kaynak Port : 1950 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:37:43.414   185.9.159.61 den 50.22.9.65 adresine trafik gidiyor.(Kaynak Port : 2739 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:43.545   185.9.159.61 den 50.22.33.205 adresine trafik gidiyor.(Kaynak Port : 2837 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:43.546   185.9.159.61 den 50.21.187.3 adresine trafik gidiyor.(Kaynak Port : 1630 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:37:43.618   185.9.159.61 den 50.21.202.82 adresine trafik gidiyor.(Kaynak Port : 2835 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:37:43.618   185.9.159.61 den 50.20.58.242 adresine trafik gidiyor.(Kaynak Port : 2124 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)

[root@sflow scripts]# perl sflowReader.perl | grep "185.9.159.61"
You have new mail in /var/spool/mail/root
[root@sflow scripts]# nano sflowReader.perl
[root@sflow scripts]# perl sflowReader.perl
2013-12-22 21:40:14.884   185.9.159.61 den 20.72.110.67 adresine trafik gidiyor.(Kaynak Port : 2726 Hedef Port : 445 - Boyut : 70 Byte - Tcp Flag : 0x02 - Protokol : 6)
2013-12-22 21:40:14.884   185.9.159.61 den 50.22.22.99 adresine trafik gidiyor.(Kaynak Port : 2691 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:40:14.885   178.20.231.82 den 88.228.77.246 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 62080 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:14.885   185.9.159.218 den 78.187.208.76 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 53300 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:14.885   185.9.159.218 den 193.140.225.132 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 31950 - Boyut : 1522 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:14.886   185.9.159.61 den 50.22.20.189 adresine trafik gidiyor.(Kaynak Port : 3338 Hedef Port : 3389 - Boyut : 115 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:14.886   178.20.231.95 den 78.172.129.78 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 50098 - Boyut : 1474 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:14.969   37.123.100.220 den 85.98.215.111 adresine trafik gidiyor.(Kaynak Port : 13000 Hedef Port : 63399 - Boyut : 110 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:14.970   178.20.228.224 den 88.238.235.12 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 26457 - Boyut : 74 Byte - Tcp Flag : 0x12 - Protokol : 6)
2013-12-22 21:40:14.971   178.20.231.95 den 213.153.233.146 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 51503 - Boyut : 1474 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:14.971   185.9.159.104 den 173.194.70.27 adresine trafik gidiyor.(Kaynak Port : 45406 Hedef Port : 25 - Boyut : 128 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:14.971   185.9.159.61 den 50.22.37.99 adresine trafik gidiyor.(Kaynak Port : 2693 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:40:14.971   178.20.230.198 den 188.119.49.16 adresine trafik gidiyor.(Kaynak Port : 27015 Hedef Port : 27005 - Boyut : 202 Byte - Tcp Flag : 0x04 - Protokol : 17)
2013-12-22 21:40:14.972   178.20.231.102 den 85.108.47.94 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 49586 - Boyut : 1047 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:15.081   37.123.100.41 den 78.182.181.102 adresine trafik gidiyor.(Kaynak Port : 13200 Hedef Port : 54979 - Boyut : 190 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:15.082   178.20.225.195 den 141.101.93.47 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 34641 - Boyut : 74 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.082   37.123.100.41 den 78.186.51.241 adresine trafik gidiyor.(Kaynak Port : 13200 Hedef Port : 56060 - Boyut : 190 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:15.082   185.9.159.61 den 50.20.96.238 adresine trafik gidiyor.(Kaynak Port : 2164 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:40:15.083   185.9.159.234 den 78.188.214.96 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 1285 - Boyut : 1514 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:15.083   185.9.159.218 den 78.187.208.76 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 53227 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.083   185.9.159.61 den 50.22.21.202 adresine trafik gidiyor.(Kaynak Port : 3062 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.328   185.9.159.233 den 31.13.64.17 adresine trafik gidiyor.(Kaynak Port : 45281 Hedef Port : 443 - Boyut : 82 Byte - Tcp Flag : 0x02 - Protokol : 6)
2013-12-22 21:40:15.328   37.123.97.70 den 88.248.161.240 adresine trafik gidiyor.(Kaynak Port : 32950 Hedef Port : 29059 - Boyut : 1462 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.328   185.9.159.218 den 78.168.229.203 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 58275 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.329   185.9.159.218 den 193.140.225.132 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 31950 - Boyut : 1522 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.329   185.9.159.61 den 50.22.55.168 adresine trafik gidiyor.(Kaynak Port : 2681 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.329   37.123.96.226 den 37.187.45.245 adresine trafik gidiyor.(Kaynak Port : 3120 Hedef Port : 53121 - Boyut : 1522 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.329   178.20.231.82 den 66.249.78.128 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 48261 - Boyut : 1492 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.457   178.20.231.18 den 78.170.106.78 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 59488 - Boyut : 110 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:15.458   185.9.159.6 den 95.14.30.123 adresine trafik gidiyor.(Kaynak Port : 7777 Hedef Port : 27512 - Boyut : 121 Byte - Tcp Flag : 0x18 - Protokol : 17)
2013-12-22 21:40:15.458   185.9.159.215 den 85.98.107.173 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 52954 - Boyut : 1502 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.458   185.9.156.136 den 88.248.122.49 adresine trafik gidiyor.(Kaynak Port : 7096 Hedef Port : 1582 - Boyut : 1087 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:15.459   178.20.231.102 den 5.255.253.13 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 15124 - Boyut : 1472 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.611   178.20.231.86 den 208.110.80.210 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 52440 - Boyut : 1522 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.612   185.9.159.218 den 78.168.229.203 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 58277 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.613   185.9.159.233 den 31.13.64.17 adresine trafik gidiyor.(Kaynak Port : 45260 Hedef Port : 443 - Boyut : 74 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.613   185.9.159.61 den 50.20.62.134 adresine trafik gidiyor.(Kaynak Port : 2799 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:40:15.617   178.20.231.102 den 88.236.147.57 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 49701 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.617   185.9.159.233 den 31.13.64.81 adresine trafik gidiyor.(Kaynak Port : 51346 Hedef Port : 443 - Boyut : 74 Byte - Tcp Flag : 0x11 - Protokol : 6)
2013-12-22 21:40:15.617   185.9.159.61 den 50.20.77.151 adresine trafik gidiyor.(Kaynak Port : 2469 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.744   178.20.231.82 den 37.155.158.132 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 4333 - Boyut : 656 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:15.748   37.123.98.121 den 117.200.98.20 adresine trafik gidiyor.(Kaynak Port : 52902 Hedef Port : 44531 - Boyut : 1482 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.748   185.9.159.154 den 202.104.96.106 adresine trafik gidiyor.(Kaynak Port : 1762 Hedef Port : 445 - Boyut : 70 Byte - Tcp Flag : 0x02 - Protokol : 6)
2013-12-22 21:40:15.749   178.20.230.198 den 176.240.126.43 adresine trafik gidiyor.(Kaynak Port : 27015 Hedef Port : 27005 - Boyut : 164 Byte - Tcp Flag : 0x02 - Protokol : 17)
2013-12-22 21:40:15.749   185.9.159.234 den 78.181.97.55 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 4089 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.750   185.9.159.61 den 50.22.56.154 adresine trafik gidiyor.(Kaynak Port : 2703 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.750   185.9.159.61 den 50.22.58.212 adresine trafik gidiyor.(Kaynak Port : 2993 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.904   178.20.228.224 den 83.66.173.144 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 4562 - Boyut : 1462 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.904   178.20.228.224 den 83.66.173.144 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 4562 - Boyut : 1462 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.904   185.9.159.154 den 189.71.152.32 adresine trafik gidiyor.(Kaynak Port : 36712 Hedef Port : 56613 - Boyut : 196 Byte - Tcp Flag : 0x10 - Protokol : 17)
2013-12-22 21:40:15.905   185.9.159.234 den 78.181.97.55 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 4089 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:15.905   185.9.159.61 den 50.22.16.63 adresine trafik gidiyor.(Kaynak Port : 2645 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:40:15.906   185.9.159.61 den 50.22.16.119 adresine trafik gidiyor.(Kaynak Port : 2883 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:40:15.906   178.20.231.211 den 92.45.243.182 adresine trafik gidiyor.(Kaynak Port : 9901 Hedef Port : 57288 - Boyut : 130 Byte - Tcp Flag : 0x04 - Protokol : 17)
2013-12-22 21:40:16.039   185.9.159.61 den 59.18.88.111 adresine trafik gidiyor.(Kaynak Port : 4359 Hedef Port : 445 - Boyut : 70 Byte - Tcp Flag : 0x02 - Protokol : 6)
2013-12-22 21:40:16.040   37.123.97.66 den 207.244.72.44 adresine trafik gidiyor.(Kaynak Port : 32185 Hedef Port : 16411 - Boyut : 1522 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.040   37.123.97.70 den 85.98.90.59 adresine trafik gidiyor.(Kaynak Port : 32259 Hedef Port : 2415 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.040   185.9.159.61 den 50.22.57.98 adresine trafik gidiyor.(Kaynak Port : 2655 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.041   185.9.159.11 den 46.1.255.190 adresine trafik gidiyor.(Kaynak Port : 13000 Hedef Port : 19136 - Boyut : 86 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.041   185.9.159.61 den 50.22.46.35 adresine trafik gidiyor.(Kaynak Port : 3479 Hedef Port : 3389 - Boyut : 157 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.045   178.20.231.95 den 68.222.176.243 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 49394 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.106   185.9.159.233 den 31.13.64.81 adresine trafik gidiyor.(Kaynak Port : 51367 Hedef Port : 443 - Boyut : 68 Byte - Tcp Flag : 0x04 - Protokol : 6)
2013-12-22 21:40:16.108   178.20.231.85 den 66.220.158.126 adresine trafik gidiyor.(Kaynak Port : 53 Hedef Port : 43217 - Boyut : 95 Byte - Tcp Flag : 0x04 - Protokol : 17)
2013-12-22 21:40:16.108   185.9.159.233 den 31.13.64.81 adresine trafik gidiyor.(Kaynak Port : 51443 Hedef Port : 443 - Boyut : 162 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.109   178.20.231.76 den 73.92.114.63 adresine trafik gidiyor.(Kaynak Port : 1432 Hedef Port : 445 - Boyut : 70 Byte - Tcp Flag : 0x02 - Protokol : 6)
2013-12-22 21:40:16.148   178.20.231.82 den 88.245.228.247 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 16434 - Boyut : 1462 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.148   178.20.230.21 den 24.133.166.147 adresine trafik gidiyor.(Kaynak Port : 9987 Hedef Port : 49170 - Boyut : 134 Byte - Tcp Flag : 0x10 - Protokol : 17)
2013-12-22 21:40:16.149   185.9.159.86 den 139.91.133.124 adresine trafik gidiyor.(Kaynak Port : 3212 Hedef Port : 445 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.214   185.9.159.61 den 50.22.36.137 adresine trafik gidiyor.(Kaynak Port : 3480 Hedef Port : 3389 - Boyut : 115 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.218   178.20.227.75 den 81.232.3.98 adresine trafik gidiyor.(Kaynak Port : 3389 Hedef Port : 57938 - Boyut : 1420 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.225   178.20.231.82 den 81.215.60.167 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 52550 - Boyut : 1514 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.227   185.9.159.148 den 88.233.198.247 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 60855 - Boyut : 210 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.227   37.123.100.41 den 78.166.158.128 adresine trafik gidiyor.(Kaynak Port : 13200 Hedef Port : 1024 - Boyut : 86 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.227   178.20.227.85 den 40.77.66.59 adresine trafik gidiyor.(Kaynak Port : 3632 Hedef Port : 445 - Boyut : 70 Byte - Tcp Flag : 0x02 - Protokol : 6)
2013-12-22 21:40:16.228   185.9.159.154 den 88.234.228.168 adresine trafik gidiyor.(Kaynak Port : 36712 Hedef Port : 53311 - Boyut : 128 Byte - Tcp Flag : 0x02 - Protokol : 17)
2013-12-22 21:40:16.398   185.9.159.234 den 109.228.235.5 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 27058 - Boyut : 1462 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.401   185.9.156.136 den 85.106.157.139 adresine trafik gidiyor.(Kaynak Port : 8634 Hedef Port : 21645 - Boyut : 1462 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.405   185.9.157.246 den 146.251.185.244 adresine trafik gidiyor.(Kaynak Port : 13000 Hedef Port : 50398 - Boyut : 86 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.410   178.20.224.252 den 46.1.32.34 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 52821 - Boyut : 1462 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.410   185.9.159.61 den 50.20.55.134 adresine trafik gidiyor.(Kaynak Port : 2055 Hedef Port : 3389 - Boyut : 68 Byte - Tcp Flag : 0x10 - Protokol : 6)
2013-12-22 21:40:16.411   178.20.224.252 den 78.171.95.211 adresine trafik gidiyor.(Kaynak Port : 80 Hedef Port : 55073 - Boyut : 921 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.412   178.20.226.144 den 31.44.199.96 adresine trafik gidiyor.(Kaynak Port : 13000 Hedef Port : 2201 - Boyut : 334 Byte - Tcp Flag : 0x18 - Protokol : 6)
2013-12-22 21:40:16.429   178.20.228.121 den 81.232.3.98 adresine trafik gidiyor.(Kaynak Port : 3389 Hedef Port : 57944 - Boyut : 1522 Byte - Tcp Flag : 0x10 - Protokol : 6)

Open in new window

0
Comment
Question by:3XLcom
2 Comments
 
LVL 26

Accepted Solution

by:
wilcoxon earned 500 total points
ID: 39736205
1) Writing to a file and then removing everything older than 1 minute is non-trivial.  The simplest solution I can think of is to use Tie::File (treats a file as a list) but you'll still have to parse the date of every line you check.

2) I don't know if Time::HiRes provides that level of precision.  It should say in the module docs.  As to formatting as a table - as long as the columns are a fixed length or you know the max possible length (like with an ip) then you can just do something like:
printf "%10s %12s %15s ...\n", $date, $time, $ip, ...

Open in new window

0
 

Author Closing Comment

by:3XLcom
ID: 39740607
nice idea
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

On Microsoft Windows, if  when you click or type the name of a .pl file, you get an error "is not recognized as an internal or external command, operable program or batch file", then this means you do not have the .pl file extension associated with …
There are many situations when we need to display the data in sorted order. For example: Student details by name or by rank or by total marks etc. If you are working on data driven based projects then you will use sorting techniques very frequently.…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now