求助：ipv6地址转换成十进制整数

scrit

大家有没有做过的经验啊，把ipv6地址转换成十进制整数。谢谢各位帮帮啊。

scrit

自己问题自己顶，请各位参考下，我这样写对不对啊？

1. #!/usr/bin/perl
   
2. 
   
3. my @octets = split(/\:/, 'fe80:0000:0000:0000:021d:7dff:fe0c:d446');
   
4. my $dec = (hex($octets[0])*1<<112)+(hex($octets[1])*1<<96)+(hex($octets[2])*1<<80)+(hex($octets[3])*1<<64)+(hex($octets[4])*1<<48)+(hex($octets[5])*1<<32)+(hex($octets[6])*1<<16)+(hex($octets[7]));
   
5. print "$dec\n";

复制代码

zhlong8

你 << 112 那还是整数吗？
Net::IP::intip

scrit

我以为位移112位的…… 按照ipv4那样转换的……

scrit

你
zhlong8 发表于 2011-07-22 11:11

    谢谢版主提醒，我用哪个模块试试