#!/usr/bin/perl

#############################################################################
#                                                                           #
#  foja_parser.pl - FOJA excercise HTML dokument parser                     #
#                                                                           #
#  Na standartny vystup (stdout) vypise pocet zadanych uloh podla           #
#  prislusneho HTML suboru. Ak su aj nejake odovzdavacie ulohy,             #
#  tak nasledne vypise aj tie, resp. ich poradove cisla.                    #
#                                                                           #
#  Uzivajte si to v zdravi, s pozdravom                                     #
#                                                                           #
#                              =Neptunko= <neptunko@pobox.sk> [12/11/2000]  #
#                                                                           #
#############################################################################

# $Platon: foja-parser.pl,v 1.4 2002/02/12 00:34:24 jombik9 Exp $

$STR1 = "Uloha";
$STR2 = "dovz";

#############################################################################

if ($#ARGV != 0) {
	print("Foja HTML parser v0.9, written and copyrights by Neptunko\n");
	print("THIS SOFTWARE COMES WITH ABSOLUTELY NO WARRANTY! ");
	print("USE AT YOUR OWN RISK!\n");
	printf("Usage: %s <foja_html_filename>\n", $0);
	exit 1;
}

open(handle, $ARGV[0]) || die("can't open handle");

my $s;

while (<handle>) {
	chomp;

	s/<[^<>]*>//g;
		s/ //g;


		$s = $s . $_ . " " if ($_ =~ /$STR2/ || $_ =~ /^$STR1[0-9]{1,2}$/);
}

if ($s =~ /.*[^0-9]+([0-9]{1,2})[^0-9]+.*$/) {
	print $1, "\n" 
}

if ($s=~/.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*/) {
	print $1, "\n", $2, "\n";
}