/[nn]/find3.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /find3.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Tue Feb 5 13:42:10 2002 UTC revision 1.4 by dpavlin, Tue Feb 5 14:31:49 2002 UTC
# Line 20  my $aname;     ## ancor name na originalnim Line 20  my $aname;     ## ancor name na originalnim
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    
# Line 131  foreach my $file (@files) { Line 134  foreach my $file (@files) {
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>) {
# Line 157  foreach my $file (@files) { Line 161  foreach my $file (@files) {
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) {
# Line 170  foreach my $file (@files) { Line 175  foreach my $file (@files) {
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          }          }
# Line 178  foreach my $file (@files) { Line 184  foreach my $file (@files) {
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});
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26