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 |