perl - 我应该将 “eval”放在子例程中还是将该子例程放在 “eval”中？

Question

这两种方法中的一种是否必须被优先使用，还是仅取决于口味？

#!/usr/bin/env perl
use warnings;
use strict;
use DBI;

my $db = 'sqlite_db';

####################   A   ####################

sub get_database_handle {
    my ( $db ) = @_;
    my $dbh;
    eval {
        $dbh = DBI->connect( "DBI:SQLite:$db", '', '', {...} )
        or die DBI->errstr;
    };
    if ( $@ ) {
        print $@;
        return;
    }
    return $dbh;
}

DATABASES: while ( 1 ) {
    # choose a database from a list of databases
    # ...
    my $dbh = get_database_handle( $db );
    next DATABASES if not defined $dbh;
    # ...
    # do something with the database
}

####################   B   ####################

sub get_database_handle {
    my ( $db ) = @_;
    my $dbh = DBI->connect( "DBI:SQLite:$db", '', '', {...} ) 
    or die DBI->errstr;
    return $dbh;
}

DATABASES: while ( 1 ) {
    # choose a database from a list of databases
    # ...
    my $dbh;
    eval { $dbh = get_database_handle( $db ); };
    if ( $@ ) {
        print $@;
        next DATABASES;
    }
    # ...
    # do something with the database
}

Answer 1

为什么要评估？无法获取数据库句柄时该怎么办？

至少，子例程应该返回数据库句柄或死亡，因此那里没有eval。

如果在发生数据库错误时确实有事可做，那么请在子例程之外进行eval。仅在子例程周围没有必要，根据您的错误处理逻辑，范围可能会更广。

但是，如果您只想终止程序并显示错误，只需让异常冒泡即可。