Parent Directory | Revision Log
added -d path and -n flags
1 | dpavlin | 2 | #!/usr/bin/perl -w |
2 | |||
3 | use strict; | ||
4 | dpavlin | 42 | #use blib; |
5 | dpavlin | 2 | |
6 | dpavlin | 36 | use Biblio::Isis; |
7 | dpavlin | 42 | use Getopt::Std; |
8 | dpavlin | 2 | use Data::Dumper; |
9 | |||
10 | dpavlin | 42 | my %opt; |
11 | getopts('dn:', \%opt); | ||
12 | dpavlin | 13 | |
13 | dpavlin | 42 | my $isisdb = shift @ARGV || die "usage: $0 [-n number] [-d] /path/to/isis/BIBL\n"; |
14 | |||
15 | dpavlin | 36 | my $isis = Biblio::Isis->new ( |
16 | dpavlin | 13 | isisdb => $isisdb, |
17 | dpavlin | 42 | debug => $opt{'d'}, |
18 | dpavlin | 9 | include_deleted => 1, |
19 | dpavlin | 15 | # read_fdt => 1, |
20 | dpavlin | 2 | ); |
21 | |||
22 | dpavlin | 32 | print "rows: ",$isis->count,"\n\n"; |
23 | dpavlin | 4 | |
24 | dpavlin | 42 | my $min = 1; |
25 | my $max = $isis->count; | ||
26 | |||
27 | for my $mfn ($min .. $max) { | ||
28 | print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'}); | ||
29 | dpavlin | 2 | print $isis->to_ascii($mfn),"\n"; |
30 | |||
31 | } | ||
32 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |