Parent Directory | Revision Log | Patch
revision 2 by dpavlin, Tue Dec 28 01:41:45 2004 UTC | revision 9 by dpavlin, Wed Dec 29 16:01:41 2004 UTC | |
---|---|---|
# | Line 7 use IsisDB; | Line 7 use IsisDB; |
7 | use Data::Dumper; | use Data::Dumper; |
8 | ||
9 | my $isis = IsisDB->new ( | my $isis = IsisDB->new ( |
10 | isisdb => '/data/isis_data/ps/LIBRI/LIBRI', | isisdb => shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI', |
11 | debug => shift @ARGV, | |
12 | include_deleted => 1, | |
13 | ); | ); |
14 | ||
15 | print "rows: ",$isis->{'maxmfn'},"\n\n"; | |
16 | ||
17 | for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) { | for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) { |
18 | print $isis->to_ascii($mfn),"\n"; | print $isis->to_ascii($mfn),"\n"; |
19 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |