#!/usr/bin/perl -w
use strict;
use File::Spec;

my $dir = shift(@ARGV) || ".";

opendir(DIR, $dir) or die "Cannot open $dir for reading: $!\n";

my @files = grep(!/^\.\.?/, readdir(DIR));

my %types = ();

FILENAME:
foreach my $file (@files) {
    if($file =~ m/\d+\.\d+\.\d+\.\d+/) {
	my $filename = File::Spec->catdir($dir, $file);
	open(FILE, $filename) or die "Cannot open $file for reading: $!\n";

	while(my $line = <FILE>) {
	    chomp($line);
	    my @a = split(/\s+/, $line);
	    $types{$a[2]}++;   # 2nd field contains the request type.
	} # End while
	
	close FILE;
    } else {
	next FILENAME;
    } # End else
} # End foreach

foreach my $type (sort(keys(%types))) {
    print pad($type, 25), $types{$type}, "\n";
} # End foreach

sub pad {
    my($str, $l) = @_;

    $str .= " " while(length($str) < $l);
    return $str;
} # End pad