/[webpac2]/trunk/lib/WebPAC/Input/Ovid.pm
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/lib/WebPAC/Input/Ovid.pm

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

revision 1125 by dpavlin, Sun Apr 19 23:35:31 2009 UTC revision 1126 by dpavlin, Mon Apr 20 13:44:40 2009 UTC
# Line 82  sub new { Line 82  sub new {
82                  warn "<< $line\n";                  warn "<< $line\n";
83    
84                  if ( $line =~ m/^<(\d+)>$/ ) {                  if ( $line =~ m/^<(\d+)>$/ ) {
                         my $expect_rec = $#{ $self->{_rec} } + 2;  
                         warn "wrong Ovid record number: $1 != $expect_rec" unless $1 == $expect_rec;  
85                          push @{ $self->{_rec} }, $rec if $rec;                          push @{ $self->{_rec} }, $rec if $rec;
86                          warn "## rec = ",dump( $rec ),$/;                          warn "## rec = ",dump( $rec ),$/;
87                          $rec = { '000' => $1 };                          my $expect_rec = $#{ $self->{_rec} } + 2;
88                            warn "wrong Ovid record number: $1 != $expect_rec" unless $1 == $expect_rec;
89                            $rec = { '000' => [ $1 ] };
90                  } elsif ( $line =~ /^(\w.+)/ ) {                  } elsif ( $line =~ /^(\w.+)/ ) {
91                          $tag = $1;                          $tag = $1;
92                          warn "++ $tag\n";                          warn "++ $tag\n";
93                  } elsif ( $line =~ /^\s\s(.+)/ ) {                  } elsif ( $line =~ /^\s\s(.+)/ ) {
94                          my $v = $1;                          my $v = $1;
95                          $v =~ s{[\s\.]+$}{};                          $v =~ s{[\s\.]+$}{};
96                          $rec->{$tag} = $v;                          $rec->{$tag} = [ $v ];
97                  } else {                  } else {
98                          warn "### skip: '$line'\n";                          warn "### skip: '$line'\n";
99                  }                  }
# Line 102  sub new { Line 102  sub new {
102    
103          # save last rec          # save last rec
104          push @{ $self->{_rec} }, $rec if $rec;          push @{ $self->{_rec} }, $rec if $rec;
         $self->{size} = $#{ $self->{_rec} } + 1;  
105    
106          $log->debug("loaded ", $self->size, " records");          $log->debug("loaded ", $self->size, " records");
107    
# Line 136  Return number of records in database Line 135  Return number of records in database
135    
136  sub size {  sub size {
137          my $self = shift;          my $self = shift;
138          return $self->{size};          return $#{ $self->{_rec} } + 1;
139  }  }
140    
141  =head1 AUTHOR  =head1 AUTHOR
Legend:
Removed from v.1125  
changed lines
  Added in v.1126
  ViewVC Help
Powered by ViewVC 1.1.26