/[Biblio-Isis]/trunk/scripts/dump_isisdb.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/scripts/dump_isisdb.pl

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

revision 67 by dpavlin, Fri Jul 7 21:11:01 2006 UTC revision 68 by dpavlin, Sat Aug 26 23:09:20 2006 UTC
# Line 17  BEGIN { Line 17  BEGIN {
17  }  }
18    
19  my %opt;  my %opt;
20  getopts('dn:', \%opt);  getopts('do:l:', \%opt);
21    
22  my $isisdb = shift @ARGV || die "usage: $0 [-n number] [-d] /path/to/isis/BIBL\n";  my $isisdb = shift @ARGV || die "usage: $0 [-o offset] [-l limit] [-d] /path/to/isis/BIBL\n";
23    
24  my $isis = Biblio::Isis->new (  my $isis = Biblio::Isis->new (
25          isisdb => $isisdb,          isisdb => $isisdb,
# Line 30  my $isis = Biblio::Isis->new ( Line 30  my $isis = Biblio::Isis->new (
30    
31  print "rows: ",$isis->count,"\n\n";  print "rows: ",$isis->count,"\n\n";
32    
33  my $min = 1;  my $min = $opt{o} || 1;
34  my $max = $isis->count;  my $max = $isis->count;
35  $max = $opt{n} if ($opt{n});  $max = ( $min + $opt{l} - 1 ) if ($opt{l});
36    
37  for my $mfn ($min .. $max) {  for my $mfn ($min .. $max) {
38          print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'});          print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'});

Legend:
Removed from v.67  
changed lines
  Added in v.68

  ViewVC Help
Powered by ViewVC 1.1.26