通过perl获取系统使用的IP和网口

? ?在linux和FreeBSD系统上，可以通过ifconfig来确认有多少IP，或者有多少网口，也可以通过读取配置文件来获取相关的IP。

? ? 但是，在不通的系统，网口的命名是不一样的，即使是同样的操作系统，实体机和虚拟机的网卡命名规则也是不一样的，如：CentOS 5.x的命名规则是ethx，而在CentOS 6.x，命名规则则是emx；FreeBSD上也有re0和bce0的命令区分。

? ? ?所以，如果要按照读取配置文件的方式或者利用ifconfig命令来获取的话，那么过滤规则就会有多个，不太方便。

? ? ?利用perl的模块，可以省略很多的操作。

 
 

#!/usr/bin/perl?-w?
  
  
use?strict;?
  
  
use?Sys::HostAddr;?
  
  
use?Data::Dumper;?
  
  
?
  
  
my?$sysaddr=Sys::HostAddr->new();?
  
  
?
  
  
my?$ip_addr=$sysaddr->ip();?
  
  
#print?Dumper($ip_addr);?
  
  
foreach?my?$interface(keys?%{$ip_addr})?
  
  
{?
  
  
????????foreach?my?$aref(@{$ip_addr->{$interface}})?
  
  
????????{?
  
  
????????????????printf("$interface??$aref->{address}n");?
  
  
????????????????#print?Dumper($aref);?
  
  
????????}?
  
  
}?
 
 

? 对于$ip_addr是一个hash，其结构如下图：

? ?而对于同一张网卡有多个IP的，其hash结构如下图：

? ?网卡名作为key存在hash体里，而value则是一个匿名的数组，数组只有一个元素，这个元素是一个匿名的hash，这个hash里有2个key，对应的value分别是netmask和address。

? ?程序里有两个foreach，第一个foreach得到的是网卡名,而第二个foreach里的列表变量是一个匿名的数组，而数组的值是匿名的hash。

 
 

$ip_addr->{$interface}；
 
 

? ?由于这个数组只有一个值，所以，这个也是数组里匿名hash的引用。

? ?如果单张网卡上有多个IP的话，也能这么来取值，先通过下面的结构来看看

 
 

print?Dumper(@{$ip_addr->{$interface}})??if($interface?=~?/bce1/m);?
 
 

? ?上面语句只将bec1的数据结构打印出来，如下图：

? 可以看到，是两个hash，这样对于同一个网卡有多个IP的，可以采取同样的方式来取得所有的值。