ipsort - 行中のIPアドレスを拾ってソート

#!/usr/bin/env perl

use strict;
use warnings;

my (%s) ;
$s{ "999999999999" } = '';

while (<>){
    if( /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/ ){

  # IPアドレスが含まれている行
	my $k = sprintf("%03d%03d%03d%03d",$1,$2,$3,$4) ;
	if( defined $s{$k}){
	    $s{$k} .= $_ ;
	} else {
	    $s{$k} = $_ ;
	}
    } else {

	# そうでない行
	$s{"zzzzzzzzzzzz"} .= $_ ;
    }
} # end of while

# 出力
foreach (sort keys %s){
    printf( "%s", $s{$_} );
}