hogehoge.example.com(127.0.0.1) から ドメインの頻度を出す

かなり適当

#!/usr/bin/perl
while(){

	

	chomp $_;

	my ($host,$ip)=split(/\(/,$_,2);

	my @tmp=split(/\./,$host);

	my $domcount=@tmp;

	$domcount--;

	my $domdata;

	if ($tmp[$domcount] eq "jp" && ($tmp[$domcount-1] eq "or" || $tmp[$domcount-1] eq "co" || $tmp[$domcount-1] eq "ne" || $tmp[$domcount-1] eq "ad" || $tmp[$domcount-1] eq "ac")){

		

		$domdata=$tmp[$domcount-2]."\.".$tmp[$domcount-1]."\.".$tmp[$domcount];

		if ($dom{$domdata} eq ""){

			$dom{$domdata}=0;

		}

		$dom{$domdata}++;

	}

	elsif($tmp[$domcount] eq "jp"){

			$domdata=$tmp[$domcount-1]."\.".$tmp[$domcount];

		if ($dom{$domdata} eq ""){

			$dom{$domdata}=0;

		}

		$dom{$domdata}++;

	}

	elsif($tmp[$domcount] eq "com" || $tmp[$domcount] eq "net" || $tmp[$domcount] eq "org" || $tmp[$domcount] eq "info"){

		$domdata=$tmp[$domcount-1]."\.".$tmp[$domcount];

		if ($dom{$domdata} eq ""){

			$dom{$domdata}=0;

		}

		$dom{$domdata}++;

		

	}

	

}


for (sort keys %dom){

	print "$_,$dom{$_}\n";

}