IP地址提取和转换的Perl技巧40

在Perl脚本中处理IP地址时，经常需要提取或转换IP地址的格式。Perl提供了几个内置函数和模块，可以轻松高效地执行这些任务。## 提取IP地址

使用`Socket::getaddrinfo`
`Socket::getaddrinfo`模块提供了`&getaddrinfo`函数，它可以将主机名或IP地址解析为套接字地址结构数组。该结构包含IP地址和其他有关套接字的信息。
```perl
use Socket::getaddrinfo;
my $hostname = '';
my $addr_info = getaddrinfo($hostname, 80, AF_INET, SOCK_STREAM, proto);
foreach my $info (@$addr_info) {
print "IP address: ", inet_ntoa($info->{addr});
}
```

使用正则表达式
还可以使用正则表达式从字符串中提取IP地址。以下正则表达式匹配IPv4地址：
```
(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})
```
要提取IP地址，可以使用以下代码：
```perl
my $string = '192.168.1.1 is an IP address';
my $pattern = /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;
if ($string =~ $pattern) {
print "IP address: $1";
}
```
## 转换IP地址

从字符串转换为数字
`IP::Address`模块提供了`ipv4addr`函数将IPv4字符串地址转换为数字。
```perl
use IP::Address;
my $ip_str = '192.168.1.1';
my $ip_num = ipv4addr($ip_str);
print "IP address in numeric form: $ip_num";
```

从数字转换为字符串
要将IPv4数字地址转换为字符串，可以使用`inet_ntoa`函数：
```perl
my $ip_num = 3232235777;
my $ip_str = inet_ntoa($ip_num);
print "IP address in string form: $ip_str";
```

转换IPv4到IPv6
`Net::LibIP`模块提供了`ipv4tov6`函数将IPv4地址转换为IPv6地址。
```perl
use Net::LibIP;
my $ipv4_str = '192.168.1.1';
my $ipv6_str = ipv4tov6($ipv4_str);
print "IPv6 address: $ipv6_str";
```
## 掩码和比较

提取子网掩码
`IP::Address`模块提供了`netmask`函数提取子网掩码。
```perl
use IP::Address;
my $ip_str = '192.168.1.1/24';
my $netmask = netmask($ip_str);
print "Subnet mask: $netmask";
```

IP地址比较
`IP::Address`模块还提供了`cmp`函数比较两个IP地址。该函数返回一个整数，表示两个地址之间的顺序关系：
* `-1`：第一个地址小于第二个地址
* `0`：两个地址相等
* `1`：第一个地址大于第二个地址

掩码范围
`IP::Address`模块提供了`incl`函数判断一个IP地址是否包含在指定的掩码范围内。
```perl
use IP::Address;
my $ip_str = '192.168.1.100';
my $range_str = '192.168.1.0/24';
my $range = IP::Address->Range->new($range_str);
if ($range->incl($ip_str)) {
print "IP address $ip_str is within the range $range_str";
}
```
## 结论
Perl通过内置函数和模块提供了一系列功能来处理IP地址，包括提取、转换、掩码和比较。这些功能对于开发网络应用程序或处理IP地址数据的脚本非常有用。