如何從XML :: Parser的START處理程序引用文件名（使用parsefile時）？

Question

如果我實例化一個XML解析器::：

$parser = new XML::Parser(ErrorContext => 2, Namespaces => 0); 
$parser->setHandlers(Start => \&start_handler); 

然後調用parsefile：

$parser->parsefile($filename); 

是否有可能從start_handler內檢索$filename價值？

Answer 1

不知道XML的膽量::解析器我的建議是使用封閉：

my $filename = "foo.bar"; 
my $start_handler = sub { 
    # ues $filename here 
}; 
$parser = new XML::Parser(ErrorContext => 2, Namespaces => 0); 
$parser->setHandlers(Start => $start_handler); 

Answer 2

笨拙的方式來處理，這是包裹在一個子功能parse_file的parsefile方法（見下文）和存儲文件名在$current_filename（這與gensym's answer類似，但容忍遞歸）。

$parser = new XML::Parser(ErrorContext => 2, Namespaces => 0); 
$parser->setHandlers(Start => \&start_handler); 

$current_filename = ''; 
$previous_filename = ''; 

parse_file($filename); 

sub parse_file { 
    $previous_filename = $current_filename; 
    $current_filename = shift; 
    $parser->parsefile($current_filename); 
    $current_filename = $previous_filename; 
} 

sub start_handler { 
... 
... $current_filename ... 
... 
}