1 |
#!/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 |
|