Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

OfficeLinebacker's scratchpad

by OfficeLinebacker (Chaplain)
on May 09, 2006 at 18:54 UTC ( [id://548304] : scratchpad . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    Readonly my $MAX_ATTEMPTS => 5;
    my ( $i, $dbh );
    ...
        my $msg = "$ts $host had to try $i time(s) to write to $DB";
        warn $msg;
    }
    
  2. or download this
    my ( $num_tries, $curr_dbh );
    UPD_CURR_DB:
    ...
        } ## end if ( !$rv )
    } ## end elsif ( $i > 1 )  [ if ( $i == 5 )
    ($dbh) && $dbh->disconnect;