#!/usr/bin/perl

# Get command line arguments
if(scalar(@ARGV) < 1){
        print("Usage: azdistrib.pl INFILE \n\n");
        print("Manditory:\n");
        print("\tINFILE\tLog created from dnslog2csv.pl\n");
        print('2009 Ryan Doyle - rd@ryandoyle.net'."\n");
        exit();
}
$infile = $ARGV[0];

my %chars;
my $domaincount = 0;
my $totalletters = 0;
open(LOG, $infile) or die("Error: Cannot open file!");

while($record = <LOG>){
	@tldpart = split(/\./, $record);

	$strlen = length($tldpart[0]);
	for($i = 0; $i < $strlen; $i++){
		$letter = substr($tldpart[0], $i, 1);
		$chars{$letter} = $chars{$letter} + 1;
		# Increment the total letter count
		$totalletters++;
	}
	$domaincount++;
}

print("a,".$chars{'a'}."\n");
print("b,".$chars{'b'}."\n");
print("c,".$chars{'c'}."\n");
print("d,".$chars{'d'}."\n");
print("e,".$chars{'e'}."\n");
print("f,".$chars{'f'}."\n");
print("g,".$chars{'g'}."\n");
print("h,".$chars{'h'}."\n");
print("i,".$chars{'i'}."\n");
print("j,".$chars{'j'}."\n");
print("k,".$chars{'k'}."\n");
print("l,".$chars{'l'}."\n");
print("m,".$chars{'m'}."\n");
print("n,".$chars{'n'}."\n");
print("o,".$chars{'o'}."\n");
print("p,".$chars{'p'}."\n");
print("q,".$chars{'q'}."\n");
print("r,".$chars{'r'}."\n");
print("s,".$chars{'s'}."\n");
print("t,".$chars{'t'}."\n");
print("u,".$chars{'u'}."\n");
print("v,".$chars{'v'}."\n");
print("w,".$chars{'w'}."\n");
print("x,".$chars{'x'}."\n");
print("y,".$chars{'y'}."\n");
print("z,".$chars{'z'}."\n");
print($domaincount." domain names processed.\n");
printf("%.2f letters per domain\n", $totalletters/$domaincount);