1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $db = DBI->connect( "dbi:Oracle:$db", $user, $pass ) || die( $DBI::errstr . "\n" );
my $select = 'DELETE FROM "ADMIN"."CI_STATUS"';
my $sth = $db->prepare($select);
$sth->execute();
# spiele Liste in DB
$stmt = 'INSERT INTO "ADMIN"."CI_STATUS" VALUES (?,?,?,?,?)';
$sth = $db->prepare($stmt);
$sth->execute_array({
ArrayTupleFetch => sub { return shift @array_class }
} );
$db->disconnect if defined($db);
QuoteIch brauch keine Komplettlösung jedoch einen Ansatz wie ich die Fehler sichtbar machen kann?