11/01/25 21:59:29 発信元:219.117.239.35 0 BE:6098887-PLT(23505)
こんな流れになてますー
# 変なIPアドレスは鰓。
for (split /¥./, $dest_ADDR){
Error('24', $dest_ADDR) if $_ > 255;
}
# IPアドレスをゼロサプレス @2011/01/25
# $dest_ADDR =~ s/¥.0+/¥./g;
$dest_ADDR = sprintf "%d.%d.%d.%d", split /¥./, $dest_ADDR;