2 x DBF

[Honza Pazdziora]

On Tue, Mar 13, 2001 at 12:08:08PM +0100, Lubos Gutwald wrote:

> Mam dve tabulky(databaze) DBF se stejnou strukturou
> o radove 10000 zaznamech.
> Jak mam tyto dve tabulky jednoduse a rychle 
> spojit za sebe s jednou hlavickou na zacatku ?

use XBase;
my $table1 = new XBase 'table1.dbf';
my $outtable = $table1->create('name' => 'outtable.dbf');

my $i = 0;
my $outi = 0;
while (my @data = $table1->get_record($i)) {
	next if $data[0];
	$outtable->set_record($outi, @data[1 .. $#data]);
	$i++;
	$outi++;
}

my $table2 = new XBase 'table2.dbf';
$i = 0;
while (my @data = $table2->get_record($i)) {
	next if $data[0];
	$outtable->set_record($outi, @data[1 .. $#data]);
	$i++;
	$outi++;
}
__END__

Netestovano.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, DBD::XBase.
------------------------------------------------------------------------