4 |
use OpenIsis; |
use OpenIsis; |
5 |
use Data::Dumper; |
use Data::Dumper; |
6 |
|
|
7 |
my $mfn = shift @ARGV || '528'; |
my @mfns = @ARGV || ( 1 ); |
8 |
|
|
9 |
my $db = OpenIsis::open( 'LIBRI', '-dbpath', '/data/isis_data/ps/LIBRI/' ); |
my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' ); |
10 |
|
|
11 |
my $row = OpenIsis::read( $db, $mfn ); |
#my $row = OpenIsis::read( $db, $mfn, "MHL V205" ); |
12 |
|
foreach my $mfn (@mfns) { |
13 |
|
print "mfn: $mfn\n"; |
14 |
|
|
15 |
print Dumper($row); |
my $row = OpenIsis::read( $db, $mfn ); |
16 |
|
|
17 |
|
print Dumper($row); |
18 |
|
} |
19 |
|
|