marcin-gryszkalis · August 29, 2015 14:10 · marcin-gryszkalis · Nov 20, 2014 · marcin-gryszkalis · Nov 20, 2014
diff --git a/ipsort b/ipsort
 #!/usr/bin/perl -nl

 push @in, $_;

 END {
  print for
    map substr($_, 4) =>
    sort
    map pack('C4' => /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
    . $_ => @in;
 }
	#!/usr/bin/perl -nl

	push @in, $_;

	END {
	print for
	map substr($_, 4) =>
	sort
	map pack('C4' => /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
	. $_ => @in;
	}