/[webpac]/trunk/tests/test_isis.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/tests/test_isis.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 61 - (hide annotations)
Fri Jul 4 19:37:32 2003 UTC (20 years, 8 months ago) by dpavlin
Original Path: trunk/tools/test_isis.pl
File MIME type: text/plain
File size: 236 byte(s)
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    

Properties

Name Value
cvs2svn:cvs-rev 1.1
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26