Re: How to do Database checking through Perl?

Can you be reasonably certain that your database will return an error code if the update did not succeed? If so, you just have to check the errors (if any) returned by DBI to see if all went well.

If you want to be really paranoid about it, you could do as follows:

Add an "UUID" field to each record
With each update, also update the record's UUID field with a fresh UUID value (I use the same UUID-value for each atomic update even if it concerns many records over many tables)
Then select all records in all tables which (should) have this UUID value and see if the updates succeeded.

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

Comment on Re: How to do Database checking through Perl?