/[nn.old]/trunk/swish/html2xml.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 /trunk/swish/html2xml.pl

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

revision 82 by dpavlin, Fri Sep 13 09:20:52 2002 UTC revision 84 by dpavlin, Wed Sep 3 13:42:54 2003 UTC
# Line 34  getopts("vqdl:", \%opts); Line 34  getopts("vqdl:", \%opts);
34    
35  my $brojeva=0;  my $brojeva=0;
36  my $zakona=0;  my $zakona=0;
37    my $zak_u_broju;
38    
39  my $hr = new Lingua::Spelling::Alternative( DEBUG => $opts{d} );  my $hr = new Lingua::Spelling::Alternative( DEBUG => $opts{d} );
40  #$hr->load_affix("$nn_dir/search/croatian.aff");  #$hr->load_affix("$nn_dir/search/croatian.aff");
# Line 73  foreach my $file (@files) { Line 74  foreach my $file (@files) {
74    
75          if ($file=~m/god=(\d+)\&br=(\d+)/) {          if ($file=~m/god=(\d+)\&br=(\d+)/) {
76                  ($br,$god) = ($2,$1);                  ($br,$god) = ($2,$1);
77                  print STDERR "$file -- $2 -- $1\n" if (! $opts{q});                  if (! $opts{q}) {
78                            print STDERR " [$zak_u_broju zakona]\n" if ($zak_u_broju);
79                            print STDERR "$file -- $2 -- $1";
80                    }
81                  $brojeva++;                  $brojeva++;
82                    $zak_u_broju = 0;
83          }          }
84    
85          while(<IN>) {          while(<IN>) {
# Line 114  foreach my $file (@files) { Line 119  foreach my $file (@files) {
119                          $naslov="";                          $naslov="";
120                          $nr=0;                          $nr=0;
121                          $zakona++;                          $zakona++;
122                            $zak_u_broju++;
123                  }                  }
124    
125                  if ($sadrzaj) {                  if ($sadrzaj) {
Legend:
Removed from v.82  
changed lines
  Added in v.84
  ViewVC Help
Powered by ViewVC 1.1.26