#!/usr/bin/perl

use utf8;

$maks_vortoj = 1;

$celdosierujo = "prova";

if ($#ARGV != 1) {

	print "Unua parametro: dosierujo de la html dosieroj\n";

	exit;

}

$origino = $ARGV[0];

# States

$s_komenco = 0;

$s_nomo = 1;

$s_antauxdifinoj = 1;

$s_difinoj = 1;

sub procezi_dosieron {

	my $nomo = $_[0];

	my $stato = $s_komenco;

	my $linio;

	open $dosiero, $nomo or die "DIED: File not found";

	while(<$dosiero>) {

		$linio = $_;

		if ($stato == $s_komenco) {

			if ($linio eq

			"<table cellpadding=\"2\" cellspacing=\"2\">\n") {

				$stato = $s_nomo;

				print "Statosxangxo!";

			}

		} elsif ($stato == $s_nomo) {

			$stato = $s_antauxdifinoj;

		}

	}

}

sub krei_dosiernomon {

	my $num = $_[0];

	return "$origino/diego$num.html";

}

for $i (1 .. $maks_vortoj) {

	$nomo = krei_dosiernomon($i);

	print $nomo

	procezi_dosieron($nomo);

}