如何使用TCL/Perl规范化IPv6 ip？

Question

我想将IPv6的短格式转换为扩展格式.假设我有ipv​​6 ip为fe80 :: 1到fe80:0000:0000:0000:0000:0000:0000:0001和fe80:0010 :: 1为fe80:0010:0000:0000:0000:0000:0000: 0001等.你能帮忙用TCL或Perl或Python语言编写脚本吗？

代码应该是动态的,无论我给扩展的格式应该是扩展格式.

Answer 1

在Perl中,使用Net::IP模块:

$ perl -MNet::IP=:PROC -le'print ip_expand_address("fe80::1", 6);'
fe80:0000:0000:0000:0000:0000:0000:0001