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