Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2017-07-28 07:09 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (424 votes). Check out past polls.