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

ssaa

運用對於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{ $_ } ) ;
}