#!/usr/bin/perl -w # # This example shows how to copy a table to a new one. Note the new # and drop that will ensure delete on previous copy. Then you use # create as the method of the old table, so that you do not need to # specify the fields. Then get_record and set_record in the new # table in the while loop, skipping (next) those with _DELETED flag # set. # use strict; use XBase; my $dir = ( -d 't/' ? 't/' : '' ); my $table = new XBase("${dir}test") or die XBase->errstr(); my $newtable; $newtable = new XBase("jezek"); $newtable->drop() if defined $newtable; $newtable = $table->create("name" => "jezek") or die $table->errstr(); my $outno = 0; for my $recno (0 .. $table->last_record()) { my @data = $table->get_record($recno) or die $table->errstr(); next if shift @data; $newtable->set_record($outno++, @data) or die $newtable->errstr(); } $table->close() or die $table->errstr(); $newtable->close() or die $newtable->errstr();