perl通过ip获取服务器信息,Perl获取连接本机的外部IP信息。

说明：通过读取"netstat -p tcp"命令的输出，提取Foreign Address部分的数据，并对同一IP多重连接进行计数。

优点：相对于netstat命令的输出，可以更直观的发现异常的外部连接IP。

#!/usr/bin/perl -w

use 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 (){

#匹配类式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";

}

执行后的效果图：