用perl获取linux，unix，windows平台ip的程序

最新推荐文章于 2025-12-02 21:36:52 发布

原创最新推荐文章于 2025-12-02 21:36:52 发布 · 667 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #linux #windows #unix #output #跨平台

本文介绍使用Perl语言通过不同方法获取服务器IP地址的技术细节，包括跨平台实现及针对Linux系统的特定命令利用。

#/perl/bin/perl
use warnings;
use strict;
use Socket;
use Sys::Hostname;
sub get_serip() {
my $host = hostname();
my $name;
my $aliases;
my $type;
my $len;
my @thisaddr;
my $ip;
( $name, $aliases, $type, $len, @thisaddr ) = gethostbyname($host);
foreach (@thisaddr) {
$ip = inet_ntoa($_);
}
return $ip;
}

print &get_serip();

上面这个是跨平台的，但是要安装额外的perl模块，不过一般版本稍高些的perl都已经安装了。

下面这个是用linux的命令ifconfig，然后借助郑则表示获取ip的程序，程序的功能要强大些

use warnings;
use strict;
my $ser_ip;
my @output = `ifconfig 2>&1`;
foreach (@output) {
if (/^\s*inet addr:([\d\.]*)\s*Bcast:([\d\.]*)\s*Mask:([\d\.]*)/) {
$ser_ip = $1;
}
}
#################功能复杂
#!/usr/bin/perl
use strict;

#use warnings;

#筛选出非内网的ip
my @ip;
open (IN, "/sbin/ifconfig |");
while (<IN>) {
if ( /^\s*inet addr:([\d\.]*)\s*Bcast:([\d\.]*)\s*Mask:([\d\.]*)/ ) {
if ( ( $1 !~ /(^192\.168\.[\d\.]*)/ ) && ( $1 !~ /(^10\.[\d\.]*)/ ) && ( $1 !~ /(^172\.(16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31)\.[\d\.]*)/ ) ) {
push @ip,$1;
}
}
}
close(IN);
#过滤重复ip
@ip=sort @ip;
my %count=();
my @ip = grep {++$count{$_} < 2} @ip;
if ($#ip > 0) {
my $k=1;
for(my $i=0;$i<=$#ip;$i++) {
# my($j1,$j2,$j3,$j4)=();
# my($k1,$k2,$k3,$k4)=();
my ($j1,$j2,$j3,$j4)=split /\./,$ip[$i];
my ($k1,$k2,$k3,$k4)=split /\./,$ip[$k];
if ( $j1 ne $k1 ) {
last;
}
if ( ($j1 eq $k1) && ($j2 eq $k2) ) {
shift @ip;
}
$k++;
}
}
#如果ip只有1个就直接上报
if ($#ip == 0 ) {
foreach my $tmp(@ip){
print "$tmp ";
exit 0;
}
}
# @ip=($ip[1],$ip[0]);
#如果ip有2个,进行排序,先网通,后电信.
if ($#ip == 1 ) {
my $ip1=readpipe("whois $ip[0]\@whois.apnic.net | sed -e '/./{H;\$!d;}' -e 'x;/netnum/!d' |grep ^netname | awk '{print \$2}'|awk -F- '{print \$1}'");
my $ip2=readpipe("whois $ip[1]\@whois.apnic.net | sed -e '/./{H;\$!d;}' -e 'x;/netnum/!d' |grep ^netname | awk '{print \$2}'|awk -F- '{print \$1}'");
chomp($ip1);
chomp($ip2);
#print $ip1,"\n";
#print $ip2,"\n";
if ( ($ip1 =~ /CHINATELECOM/) || ($ip1 =~ /CHINANET/) || ($ip2 =~ /CNC/) || ($ip2 =~ /CNCGROUP/) || ($ip2 =~ /UNICOM/) ) {
#print "1 normal double line\n";
@ip=($ip[1],$ip[0]);
}
if ( ( ($ip1 =~ /CNC/) || ($ip1 =~ /CNCGROUP/) || ($ip1 =~ /UNICOM/) ) && ( ($ip2 =~ /CNC/) || ($ip2 =~ /CNCGROUP/) || ($ip2 =~ /UNICOM/) ) ) {
#print "2 double cnc line\n";
@ip=();
}
if ( ( ($ip1 =~ /CHINATELECOM/) || ($ip1 =~ /CHINANET/) ) && ( ($ip2 =~ /CHINATELECOM/) || ($ip2 =~ /CHINANET/) ) ) {
#print "3 double tel line\n";
@ip=();
}
foreach my $tmp(@ip){
print "$tmp ";
}
exit 0;
}
#如果大于2个就退出.
if ( $#ip >= 2 ) {
@ip=();
die('@ip >= 2');
}