Perl IPv6地址扩展/解析

Question

我有一个类似于2001:db8::1标量的地址,并希望得到扩展形式,2001:0db8:0000:0000:0000:0000:0000:0001.主要的Perl软件包是否在其广阔的森林中运送 - /usr/lib/perl5/...一个已经完成此操作的模块？如果没有,有人会有几行会这样做吗？

Answer 1

CPAN可以满足Net::IP您的需求.

这是一个成绩单,向您展示它的实际效果:

$ cat qq.pl
use Net::IP;
$ip = new Net::IP ('2001:db8::1');
print $ip->ip() . "\n";

$ perl qq.pl
2001:0db8:0000:0000:0000:0000:0000:0001