--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vortaro.pl	Tue Mar 13 22:47:46 2007 +0100
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use utf8;
+
+$maks_vortoj = 1;
+
+$celdosierujo = "prova";
+$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);
+}