Solved

perl help needed

Posted on 2013-12-22
2
294 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

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
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 a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…

803 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