Question

Perl中这个eval语句出了什么问题？我试图通过捕获使用XML::LibXML解析文件时抛出的任何异常来检查XML是否有效：

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

简单，$ tree不会超过eval {}。作为一般规则，perl中的大括号总是提供新的范围。警告要求您提供其参数$ @。

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

Answer 2

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

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 $@;

这个在Perl中的eval语句出了什么问题？

2 个答案: