Select Code to Download

Select or download this

my $odbh = DBI->connect("dbi:Oracle:stuff","xxx","x", { RaiseError => 
+1, PrintError => 1, ChopBlanks => 0 });
my $mdbh = DBI->connect("dbi:mysql:kultur","xxx","x", { RaiseError => 
+1, PrintError => 1 });
...
while (my $db=$msth->fetchrow_hashref) {
  $osth->execute(map {defined $$db{$_} && $$db{$_} eq '' ? " " : $$db{
+$_}} @atablelist) || die $odbh->errstr;
}

Select or download this

DBD::Oracle::st execute failed: ORA-01400: cannot insert NULL into ("X
+XX"."ATABLE"."ARROVERSKRIFTSPROG") (DBD ERROR: OCIStmtExecute)