2 x DBF

[Lubos Gutwald]

A nebude to pomale na tech databazich o 10000 vetach?
Jestli to dobre chapu, tak musim obe databaze precist
zaznam po zaznamu :-(
a zapsat to do jineho souboru.

----- Original Message ----- 
From: "Honza Pazdziora" <adelton na informatics.muni.cz>
To: "Multiple recipients of list PERL" <perl na muni.cz>
Sent: 13. brezna 2001 14:10
Subject: Re: 2 x DBF


> 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.
> ------------------------------------------------------------------------