unsorted perl tools and snippets

[webpac] / tools / test_isis.pl

#!/usr/bin/perl -w

use strict;
use OpenIsis;
use Data::Dumper;

my $mfn = shift @ARGV || '528';

my $db = OpenIsis::open( 'LIBRI', '-dbpath', '/data/isis_data/ps/LIBRI/' );

my $row = OpenIsis::read( $db, $mfn );

print Dumper($row);