#!/usr/bin/perl

use DBI;
use XBase;
use strict;

my $conn = DBI->connect("dbi:Pg:dbname=<имя БД>") or die $DBI::errstr;
my $dbh  = DBI->connect("DBI:XBase:.")  or die $DBI::errstr;
$conn->do("SET CLIENT_ENCODING TO 'WIN866'");

#$conn->do("ALTER SEQUENCE seq_disc RESTART");
#
#r_table ( a_code int, a_name text)
#
print "Reloading TABLE.DBF ... ";
$conn->do("TRUNCATE TABLE r_table RESTART IDENTITY");
my $sth = $conn->prepare(q{
          INSERT INTO r_table (a_code, a_name) VALUES (?, ?)
          }) or die $conn->errstr;

# открываем DBF  TABLE1 (поля KOD и NAME ))
  my $table = $dbh->prepare("select KOD,NAME from TABLE1 order by KOD")
        or die $dbh->errstr();
$table->execute() or die $table->errstr();
my ($kod,$name);

while (($kod, $name)= $table->fetchrow_array()) {
        $sth->execute($kod,$name);
}
$table->finish;
$sth->finish;
print "Ok!\n";

$conn->disconnect();
$dbh->disconnect();