verifying mysql writes (perl)

[Marcus]

Hi

What is a proper way of verifying that a mysql write was successfull,
and to retry if it wasnt?

In my perl script I add records through:

my $dbh=DBI->connect($dsn, $db_user_name, $db_password);
my $sth=$dbh->prepare("insert into TABLE (X, Y, Z) values ('1', '2',
'3')");
$sth->execute;
$sth->finish;

I have noticed that from time to time this fails, due to limitations
of my webhost. I thus want to do a check after the write, that it
actually happened, and if not redo.

Suggestions?

Thanks! M

[Bill Karwin]

Marcus wrote:

What is a proper way of verifying that a mysql write was successfull,
and to retry if it wasnt?

DBI methods return values. You should check these to get some
indication of success or failure.

my $dbh=DBI->connect($dsn, $db_user_name, $db_password);
if (!defined($dbh))
{
croak($DBI::errstr);
}

my $sth=$dbh->prepare("insert into TABLE (X, Y, Z) values ('1', '2', '3')");
if (!defined($sth))
{
carp($dbh->errstr);
return();
}

my $rows_inserted = $sth->execute;
if (!defined($rows_inserted))
{
carp($dbh->errstr);
return();
}

# Operation successful, and $rows_inserted should be a
# positive integer, indicating the number of rows affected
# by the operation. This should be 1 in this case.

# $sth->finish;
# The finish method is for closing an open query before all
# rows of its result set have been fetched; it is not necessary
# after executing a SQL INSERT statement.

Regards,
Bill K.