Improt ".DBF" souboru into MySQL s MEMO polozkami

[Honza Pazdziora]

On Wed, 29 Mar 2000 09:16:04 +0200, David Jedziniak <dj na ctvmo.cz> wrote:
> Preji vsem dobry den,
> 
> potrebuji kazdodenne imortovat nekolik tabulek *.dbf do MySQL a bohuzel ob
> sahuji memo polozky.  Neznate nahodou konvertor, ktery umi importovat i memo
> polozky???

#!/usr/bin/perl -w

use strict;
use DBI;

my $dbfdir = DBI->connect('dbi:XBase:.', undef, undef,
						{ 'RaiseError' => 1});
my $mysql = DBI->connect('dbi:XBase:mysql', 'user', 'pass',
						{ 'RaiseError' => 1});

my $get = $dbfdir->prepare(<<'EOF');
	select * from tabulka
EOF
$get->execute;

my $put = $mysql->prepare(<<'EOF');
	insert into tabulka values (?, ?, ?, ?, ?)
EOF

while (my $data = $get->fetchrow_arrayref) {
	$put->execute(@$data);
	}
$dbfdir->disconnect;
$mysql->disconnect;
__END__

Jinak na http://www.mysql.com/Contrib/ je cosi o KAMXbase1.0.tar.gz
a memo polozkach, ale pratap ten svuj modul uz leta neudrzoval.

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