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

Re^2: Best Practices for Exception Handling

by adrianh (Chancellor)
on Jan 30, 2003 at 09:56 UTC ( #231244=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    my $output = '';
    my $buffer;
    while (my $n = read(INPUT, $buffer, 1024)) { $output .= $buffer };
  2. or download this
    sub foobarfribbleni {
        eval {$o->foo->bar->fribble->ni};
        die "failed to foobarfribbleni" if $@;
  3. or download this
    sub foobarfribbleni {
        $o->foo or die "failed to foobarfribbleni";
        $o->fribble or die "failed to foobarfribbleni"
        $o->ni or die "failed to foobarfribbleni"
  4. or download this
    # With exceptions
    eval {
    die $dbh->errstr if $@;
  5. or download this
    # Without exceptions
    $sth = $dbh->prepare(q{ SELECT region, sales FROM sales_by_region })
    while ($sth->fetch or die $dbh->errstr) {
        print "$region: $sales\n";

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2015-11-28 07:12 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (739 votes), past polls