Parent Directory | Revision Log
unsorted perl tools and snippets
1 | dpavlin | 61 | #!/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 |