0
|
1 |
#!/usr/bin/perl
|
|
2 |
|
|
3 |
use utf8;
|
|
4 |
|
|
5 |
$maks_vortoj = 1;
|
|
6 |
|
|
7 |
$celdosierujo = "prova";
|
|
8 |
$origino = $ARGV[0];
|
|
9 |
|
|
10 |
# States
|
|
11 |
$s_komenco = 0;
|
|
12 |
$s_nomo = 1;
|
|
13 |
$s_antauxdifinoj = 1;
|
|
14 |
$s_difinoj = 1;
|
|
15 |
|
|
16 |
sub procezi_dosieron {
|
|
17 |
my $nomo = $_[0];
|
|
18 |
my $stato = $s_komenco;
|
|
19 |
my $linio;
|
|
20 |
|
|
21 |
open $dosiero, $nomo or die "DIED: File not found";
|
|
22 |
|
|
23 |
while(<$dosiero>) {
|
|
24 |
$linio = $_;
|
|
25 |
if ($stato == $s_komenco) {
|
|
26 |
if ($linio eq
|
|
27 |
"<table cellpadding=\"2\" cellspacing=\"2\">\n") {
|
|
28 |
$stato = $s_nomo;
|
|
29 |
print "Statosxangxo!";
|
|
30 |
}
|
|
31 |
} elsif ($stato == $s_nomo) {
|
|
32 |
$stato = $s_antauxdifinoj;
|
|
33 |
}
|
|
34 |
}
|
|
35 |
}
|
|
36 |
|
|
37 |
sub krei_dosiernomon {
|
|
38 |
my $num = $_[0];
|
|
39 |
return "$origino/diego$num.html";
|
|
40 |
}
|
|
41 |
|
|
42 |
for $i (1 .. $maks_vortoj) {
|
|
43 |
$nomo = krei_dosiernomon($i);
|
|
44 |
print $nomo
|
|
45 |
|
|
46 |
procezi_dosieron($nomo);
|
|
47 |
}
|