Perl中的这个eval语句有什么问题？

Question

Perl中的eval声明有什么问题？我试图检查XML是通过捕获从文件的解析抛出与XML::LibXML任何异常有效：

use XML::LibXML; 
my $parser = XML::LibXML->new(); #creates a new libXML object. 

    eval { 
    my $tree = $parser->parse_file($file) # parses the file contents into the new libXML object. 
    }; 
    warn() if $@; 

Answer 1

简单，$树没有坚持过去的eval {}。通常，perl中的括号总是提供一个新的范围。并警告要求您提供参数$ @。

my $tree; 
eval { 
    # parses the file contents into the new libXML object. 
    $tree = $parser->parse_file($file) 
}; 
warn $@ if $@; 

Answer 2

你正在大括号内声明一个$树，这意味着它不会超过右大括号。试试这个：

use XML::LibXML; 
my $parser = XML::LibXML->new(); 

my $tree; 
eval { 
    $tree = $parser->parse_file($file) # parses the file contents into the new libXML object. 
}; 
warn("Error encountered: $@") if $@;