#!/usr/bin/perl

foreach $datoteka (@ARGV){

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

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

    %rjecnikSati = ();

    if (!open FILE , $datoteka) {
        die "Greska pri ucitavanju datoteke. ($!) " ;
    }

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

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

        $rjecnikSati{$praviSati} += 1;
    }

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

}