Parent Directory | Revision Log
two new branches from HEAD
1 | dpavlin | 61 | #!/usr/bin/perl -w |
2 | |||
3 | use strict; | ||
4 | use OpenIsis; | ||
5 | use Data::Dumper; | ||
6 | |||
7 | dpavlin | 84 | my @mfns = @ARGV || ( 1 ); |
8 | dpavlin | 61 | |
9 | dpavlin | 84 | my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' ); |
10 | dpavlin | 61 | |
11 | dpavlin | 84 | #my $row = OpenIsis::read( $db, $mfn, "MHL V205" ); |
12 | foreach my $mfn (@mfns) { | ||
13 | print "mfn: $mfn\n"; | ||
14 | dpavlin | 61 | |
15 | dpavlin | 84 | my $row = OpenIsis::read( $db, $mfn ); |
16 | dpavlin | 61 | |
17 | dpavlin | 84 | print Dumper($row); |
18 | } | ||
19 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.2 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |