#!/usr/bin/perl
use strict;
use warnings;
use DBI;

#server A
my $host_a='';
# DB-Name A
my $db_a='';
# Login Benutzer A
my $user_a='';
# Login Passwort A
my $pass_a='';
# DBI-connect string DB_A
# an DB-Typ anpassen!
my $dbi_string_a="DBI:mysql:database=$db_a;host=$hostname_a"


#server B
my $host_b='';
# DB-Name B
my $db_b='';
# Login Benutzer B
my $user_b='';
# Login Passwort B
my $pass_b='';
# DBI-connect string DB_B
# an DB-Typ anpassen!
my $dbi_string_b="DBI:mysql:database=$db_b;host=$hostname_b"


my $dbh_a=DBI->connect(
  $dbi_string_a, $user_a, $pass_a,
  {
     # script bei Fehler beenden
     RaiseError => 1,
     # Änderungen automatisch übernehmen
     # (macht das schreiben langsamer)
     AutoCommit => 1,
  },
) or die("ERROR Connect DB A".$DBI::errstr."\n");

my $dbh_b=DBI->connect(
  $dbi_string_b, $user_b, $pass_b,
  {
     # script bei Fehler beenden
     RaiseError => 1,
     # Änderungen automatisch übernehmen
     # (macht das schreiben langsamer)
     AutoCommit => 1,
  },
) or die("ERROR Connect DB B".$DBI::errstr."\n");

my $sth_a = $dbh_a->prepare('SELECT * FROM Adresse');
$sth_a->execute();
while(my $row=$sth_a->fetchrow_hashref)
{
  my @names=keys(%$row);
  my $keys=join(', ',@names);
  my $values=join(', ',map{'?'}@names);
  $dbh_b->do("INSERT INTO Adresse ($keys) VALUES ($values)",undef,@$row{@names});
}
$sth_a->finish;

$dbh_a->disconnect;
$dbh_b->disconnect;