Perl擷取串連原生外部IP資訊。

說明：通過讀取"netstat -p tcp"命令的輸出，提取Foreign Address部分的資料，並對同一IP多重串連進行計數。

優點：相對於netstat命令的輸出，可以更直觀的發現異常的外部串連IP。

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    

#!/usr/bin/perl -wuse strict;######################################################################## 檔案:foreign.pl# 功能:查看所有外部串連到原生IP資訊# 說明:通過讀取"netstat -p tcp"命令的輸出，提取Foreign Address部分的資料，#      並對同一IP多重串連進行計數。# 優點:相對於netstat命令的輸出，可以更直觀的發現異常的外部串連IP。# 版本:v0.1# 時間:2012-3-28 13:31# 作者:半點鐘閑# 測試平台:# SCO_SV scosysv 3.2 5.0.6 i386#######################################################################open (NETSTAT,"netstat -p tcp |") or die "Can't open wordcount:$!";my %foreign_hash;while (<NETSTAT>){#匹配類式IP地址格式的字元(如:11.11.11.)if (/(?:\d+\.)+/) {my $match = $&;#去除匹配字串未尾的.(點)字元$match =~ s/.$//;$foreign_hash{$match}++;}}close NETSTAT;foreach my $key (keys %foreign_hash){print "$key\t=>\t$foreign_hash{$key}\n"; }

執行後的：