Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: best practice

by dga (Hermit)
on Aug 27, 2001 at 21:32 UTC ( #108181=note: print w/replies, xml ) Need Help??

in reply to best practice

My tip which seems small but is actually big is use eval blocks for error checking.

Here is an example which happens to use DBI. DBI implements tons to error checking which uses die if you ask it to.

#up top my $dbh=DBI->connect("DBI:Pg(RaiseError=>1,AutoCommit=>0),dbname=xyzzy +"); #later eval { my($sth); $stmt="SELECT cnam_oficial FROM evocrs WHERE evocrs_id=?"; $sth=$dbh->prepare($stmt); $sth->execute($ec); $sth->bind_columns( \( $cn ) ); $sth->fetch; # $dbh->commit; #if we were writing some records instead of readin +g }; if($@) { # $dbh->rollback; #if we were doing transactions and writing data print STDERR "Could not retreive course name: $stmt: $@\n"; print "Could not retrieve course name\n"; exit; }

I delclare $stmt in a scope where the eval and the error block can both see it for reporting. The eval saves having to say or die "message" on every line of your code. The RaiseError tells DBI to die on any database error. I put the commit inside the eval as the last line because that will not be reached if there is any problem since a die will jump right out of the eval without doing the rest of the block. The rollback goes in the $@ block which is executed if the eval fails.

This makes your code nice and clean and results in errors being trapped always. The DBI module is very nice about this since RaiseError causes a die for all errors.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://108181]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2020-10-25 13:43 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (249 votes). Check out past polls.