#! /usr/bin/perl
# Copyright (c) 2006 NAKAMURA Minoru. This code is free soft.

while(<>){
    my ($nic, $CC, $ipv4, $ip, $counter) = /^(\S+)\|(\S{2})\|(ipv4)\|(\d+\.\d+\.\d+\.\d+)\|(\d+)\|/;
    
    if($ipv4 eq 'ipv4'){
	my ($d1,$d2,$d3,$d4) = ($ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/ );
	my $ip_num = (($d1 * 256 + $d2) * 256 + $d3) * 256 + $d4;
	print sprintf( "%u\t%u\t%s\n", $ip_num, ($ip_num + $counter), $CC );
    }
}