blob: 1515e18214993911d7c8e6149e8e8a637cc4d9a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#! /usr/bin/perl -w
# vim:set ft=perl ai si et ts=4 sts=4 sw=4 tw=0:
# USAGE: dump-tables.pl FILE [max-data]
use strict;
my $dir = $0;
$dir =~ s:/[^/]+$::;
push @INC, $dir;
require "tables.pl";
@ARGV == 1 || @ARGV == 2 || die "\nUSAGE: dump-tables.pl FILE [max-data]\n";
open FD, $ARGV[0] or die "$ARGV[0]: $!";
dump_hdr(read_hdr());
while(!eof FD){
dump_table(read_table(),$ARGV[1]);
}
close FD;
1
__END__
|
