#!/usr/bin/perl -w 

use locale;
use utf8;
use encoding 'utf8';

use strict;
use vars qw($vstup $pocet $vsechny $soubor);

$soubor="/home/users/nozka/public_html/statistika.txt";
open(DATA,"$soubor")
    or die "Nelze oteřít $soubor";
$vstup=<DATA>;
close(DATA);

if ( $vstup =~ /(\d+)\/(\d+)/ ) {
    $pocet=$1;
    $vsechny=$2
}

$vsechny++;
while ( $vstup=<> ) {
    chomp $vstup;
    if ($vstup =~ /[Dd]obr[yý]\ ?den/) {
        $pocet++;
        last;
    }
}


open(DATA,">$soubor")
    or die "Nelze oteřít $soubor";
print DATA "$pocet/$vsechny\n";
close(DATA);

#print "$pocet/$vsechny\n";