Parent Directory | Revision Log
unsorted perl tools and snippets
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use OpenIsis; |
5 | use Data::Dumper; |
6 | |
7 | my $mfn = shift @ARGV || '528'; |
8 | |
9 | my $db = OpenIsis::open( 'LIBRI', '-dbpath', '/data/isis_data/ps/LIBRI/' ); |
10 | |
11 | my $row = OpenIsis::read( $db, $mfn ); |
12 | |
13 | print Dumper($row); |
14 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.1 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |