Parent Directory | Revision Log | Patch
revision 2 by dpavlin, Tue Dec 28 01:41:45 2004 UTC | revision 7 by dpavlin, Wed Dec 29 15:10:34 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 | ); | ); |
13 | ||
14 | print "rows: ",$isis->{'maxmfn'},"\n\n"; | |
15 | ||
16 | for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) { | for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) { |
17 | print $isis->to_ascii($mfn),"\n"; | print $isis->to_ascii($mfn),"\n"; |
18 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |