AK
Size: a a a
AK
IB
sub get_ipv6_from_ipv4 {
my ($ipv4) = @_;
my @numbers = split /\./, $ipv4;
my $ipv6 = sprintf(
'0:0:0:0:0:FFFF:%X%X:%X%X',
@numbers,
);
return $ipv6;
}
say get_ipv6_from_ipv4('64.233.165.100');
P
sub get_ipv6_from_ipv4 {
my ($ipv4) = @_;
my @numbers = split /\./, $ipv4;
my $ipv6 = sprintf(
'0:0:0:0:0:FFFF:%X%X:%X%X',
@numbers,
);
return $ipv6;
}
say get_ipv6_from_ipv4('64.233.165.100');
AK
AK
IB
VG
IB
VG
AK
AK
IB
IB
AK
IB
AK
AK
IB
AK
AT