/[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

Contents of /trunk/scripts/dump_isisdb.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 43 - (show annotations)
Thu Jun 29 23:20:14 2006 UTC (17 years, 9 months ago) by dpavlin
File MIME type: text/plain
File size: 567 byte(s)
actually use -n argument for maximum records to dump
1 #!/usr/bin/perl -w
2
3 use strict;
4 #use blib;
5
6 use Biblio::Isis;
7 use Getopt::Std;
8 use Data::Dumper;
9
10 my %opt;
11 getopts('dn:', \%opt);
12
13 my $isisdb = shift @ARGV || die "usage: $0 [-n number] [-d] /path/to/isis/BIBL\n";
14
15 my $isis = Biblio::Isis->new (
16 isisdb => $isisdb,
17 debug => $opt{'d'},
18 include_deleted => 1,
19 # read_fdt => 1,
20 );
21
22 print "rows: ",$isis->count,"\n\n";
23
24 my $min = 1;
25 my $max = $isis->count;
26 $max = $opt{n} if ($opt{n});
27
28 for my $mfn ($min .. $max) {
29 print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'});
30 print $isis->to_ascii($mfn),"\n";
31
32 }
33

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26