11/01/25 01:32:10 発信元: 0
> s/\.0+/\./g;
って先頭が 0x.x.x.x だと意味ないよね。。。
お好きなのをどうぞ
$range = '(?:2(?:5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9][0-9]|[0-9])';
$ip =~ /^${range}\.${range}\.${range}\.${range}$/
$ip = join('.', unpack('C4', pack('C4', split(/\./,$a))));
$ip = join('.', map { ($_ < 256) ? int($_) : 0 } split(/\./, $ip, 4));
use Socket;
$ip = inet_ntoa(inet_aton($ip));