#!/usr/bin/perl

$brojac = 1;
%satiIspis = ();

while (<>){
    chomp;

    @nazivDatoteke = split /\./, $ARGV;
    $datum = $nazivDatoteke[1];

    if ( $brojac == 1 ){
        print "Datum: $datum\n";
        print "sat : broj pristupa\n";
        print "----------------------------------\n";
        $brojac = 2;

    }

    $sadrzaj = $_;
    @sati = split /:/, $sadrzaj;
    @praviSati = $sati[1];


    if ( $brojac == 2 ){
        $satiIspis{$praviSati} += 1;
        #print "$satiIspis{$praviSati}\n";
    }

    #print "@praviSati\n";
    #print "$satiIspis\n";

    if( eof ){

        foreach $sat (sort keys %satiIspis){

            print "$sat : $satiIspis{$sat}\n";

        }
        %satiIspis = ();
        $brojac = 1;
    }
}