#!/usr/bin/perl

foreach $datoteka (@ARGV){

    @naziv = split /\./, $datoteka;
    $datum = $naziv[1];

    print "Datum: $datum\n";
    print "sat : broj pristupa\n";
    print "------------------------------\n";

    %rjecnikSati = ();


    while(defined($line = <>)){
        chomp($line);

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

        $rjecnikSati{$praviSati} += 1;
    }

    foreach $sat (sort keys %rjecnikSati){
        print "$sat : $rjecnikSati{$sat}\n";
    }

}