/[webpac]/trunk/tools/dump_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/tools/dump_isis.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 107 - (hide annotations)
Mon Jul 14 17:34:45 2003 UTC (20 years, 8 months ago) by dpavlin
File MIME type: text/plain
File size: 509 byte(s)
dump isis records using OpenIsis...

1 dpavlin 107 #!/usr/bin/perl -w
2    
3     # this utility emulates output of openisis -db "database"
4     # so you can test if perl can read your isis file
5    
6     #use strict;
7     use OpenIsis;
8    
9     my $db = OpenIsis::open( shift @ARGV || '/data/isis_data/bug/LIBRI/' );
10     my $maxmfn = OpenIsis::maxRowid( $db ) || 1;
11    
12     print "rows: $maxmfn\n\n";
13    
14     for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
15     print "0\t$mfn\n";
16     my $row = OpenIsis::read( $db, $mfn );
17     foreach my $k (keys %{$row}) {
18     print "$k\t",join("\n$k\t",@{$row->{$k}}),"\n";
19     }
20     print "\n";
21     }
22    

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26