20 |
my $nn_dir="."; # dir u kojem su wget-ani fileovi |
my $nn_dir="."; # dir u kojem su wget-ani fileovi |
21 |
|
|
22 |
my %opts; |
my %opts; |
23 |
getopt("vqd", \%opts); |
getopts("vqd", \%opts); |
24 |
|
|
25 |
|
my $brojeva=0; |
26 |
|
my $zakona=0; |
27 |
|
|
28 |
#-------------------------------------------------------------------- |
#-------------------------------------------------------------------- |
29 |
|
|
134 |
if ($file=~m/god=(\d+)\&br=(\d+)/) { |
if ($file=~m/god=(\d+)\&br=(\d+)/) { |
135 |
($br,$god) = ($2,$1); |
($br,$god) = ($2,$1); |
136 |
print "$file -- $2 -- $1\n" if (! $opts{q}); |
print "$file -- $2 -- $1\n" if (! $opts{q}); |
137 |
|
$brojeva++; |
138 |
} |
} |
139 |
|
|
140 |
while(<IN>) { |
while(<IN>) { |
161 |
$sth->execute($br,$god,$nr,$aname,$naslov,$naslov_czs) || die $dbh->errstr(); |
$sth->execute($br,$god,$nr,$aname,$naslov,$naslov_czs) || die $dbh->errstr(); |
162 |
$naslov=""; |
$naslov=""; |
163 |
$nr=0; |
$nr=0; |
164 |
|
$zakona++; |
165 |
} |
} |
166 |
|
|
167 |
if ($sadrzaj) { |
if ($sadrzaj) { |
175 |
die "can't find nr in line: $_"; |
die "can't find nr in line: $_"; |
176 |
} |
} |
177 |
$naslov.=$_; |
$naslov.=$_; |
178 |
|
$naslov=~s/^\s*$nr\.*\s*//g; |
179 |
} |
} |
180 |
|
|
181 |
} |
} |
184 |
} |
} |
185 |
|
|
186 |
$dbh->do("vacuum") || die $dbh->errstr(); |
$dbh->do("vacuum") || die $dbh->errstr(); |
187 |
|
print "Ukupno $brojeva brojeva NN, sa $zakona zakona...\n" if (! $opts{q}); |