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