我是否需要在对 Win32::OLE->LastError 的调用中捕获错误？

Question

[编辑] - 事后看来，这个问题被误导了。我没有删除它，因为它是不正确使用eval和Perl::Critic正确批评的一个很好的例子。

Perl Critic 对以下代码提出了以下批评：

eval 的返回值未测试。您不能依赖 $@/$EVAL_ERROR 的值来判断 eval 是否失败

my $Jet = Win32::OLE->CreateObject('DAO.DBEngine.36')
    or croak "Can't create Jet database engine.";
my $DB = $Jet->OpenDatabase($DBFile)

# code omitted for the sake of brevity
# perl script writes results to Access db via an append query
$DB->Execute( $SQLquery, 128 );                       #128=DBFailOnError

eval {$err = Win32::OLE->LastError()} ; #<<<< PROBLEM LINE SEE FEEDBACK BELOW  
if ( $err){
     print $ERROR "WIN32::OLE raised an exception: $err\n";
     Win32::OLE->LastError(0);  # this clears your error
}

我的想法是我正在使用 eval 来检测错误对象的存在并在 Win32:OLE 模块上检测错误并报告它。

我可以安全地忽略这些批评吗？

Answer 1

撇开 perl-critic 问题不谈，您的代码没有多大意义。

Win32::OLE 文档 解释何时抛出异常（以及如何自动捕获它们）。

LastError 只是在错误发生后为您提供有关错误的信息（假设您的程序尚未终止）。将其包装在 eval 中是没有意义的。

更新：我会写一些类似以下内容的内容（未经测试，因为我现在使用的是 Linux，无法访问 Windows）：

use strict;
use warnings;

use Carp;

use Win32;
use Win32::OLE;

$Win32::OLE::Warn = 3;

# No need for this eval if you are OK with the default error message    
my $Jet = eval {
    Win32::OLE->CreateObject('DAO.DBEngine.36')
} or croak sprintf(
    "Can't create Jet database engine: %s", 
    win32_error_message(Win32::OLE->LastError)
);

# No need for this eval if you are OK with the default error message
my $DB = eval {
    $Jet->OpenDatabase($DBFile)
} or croak sprintf(
    "Can't open database '$DBFile': %s",
    win32_error_message(Win32::OLE->LastError)
);

my $result = eval {
    $DB->Execute( $SQLquery, 128 )
};

unless (defined $result) {
    print $ERROR win32_error_message(Win32::OLE->LastError);
    Win32::OLE->LastError(0);
}

Answer 2

该消息的含义在 文档。简而言之，它告诉您在 eval 之后不要单独依赖 $@，还要检查 eval 的返回值。

但是，就您而言，问题是您既没有检查 eval 的返回值，也没有检查 $@ 而且似乎您使用了 < code>eval 完全是多余的，因为您调用的方法不应该抛出任何异常。