21 1 月 2013

用Perl查詢連線狀況

作者:Ben哥|發布日期:2008/06/23

利用 Perl 程式語言撰寫一支查詢連線狀況的程式

運用對於Linux防火牆中的連線追蹤系統的了解

利用Perl程式語言撰寫一支查詢連線狀況的程式

#!/usr/bin/perl

open ( CONN, "/proc/net/ip_conntrack" ) or die "ip_conntrack kernel module is not loaded\n";

while(<CONN> )
{
$_ =~ /.*src=(.*?\s)/ ;
$src_ip{ $1 }++ ;
}
foreach ( sort { $src_ip{ $a } $src_ip{ $b } } keys %src_ip )
{
printf( "IP address : %-20s has %-5dconnections\n", $_, $src_ip{ $_ } ) ;
}