| |
|
Tech Tips12
利用Perl程式語言撰寫一支查詢連線狀況的程式
...回技術小秘訣
|
作者：Ben哥
發布日期：2008/6/23 |
|
| |
運用對於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{ $_ } ) ;
}
|
如您有任何問題，歡迎來信給Ben哥喔！
|
|
