~~ 对于脚本能解决的问题不存在实现不能实现的问题，只是方便不方便的问题
```perl6
#!/usr/bin/env perl6

sub ip2Int(@ip) {
my Int $ipint = 0;

for ^4 {
$ipint +<= 8; $ipint +|= @ip[$_];
}
$ipint;
}

sub int2Ip($ipint) {
my @ip;

@ip.push: ($ipint +> (8 * .Int)) +& 0xff for ^4;
@ip.reverse;
}

say int2Ip($_) for ip2Int([1, 0, 16, 0]) ... ip2Int([1, 0, 31, 255]);
```
下面是测试 测试，如果你是想要的这种效果的话。。
[TEST LINK]( https://ideone.com/KOG2Gp)