如何将参数传递给XML :: SAX解析器？

Question

我有一个XML ::基于基础SAX解析器::看起来是这样的：

package MyParser; 
use base qw(XML::SAX::Base); 
our @ISA = ('XML::SAX::Base'); 

sub new { 
    my $class = shift; 
    my %params = @_; 

    my $self = { 
     thing => $params{thing}, 
    }; 
    bless $self, $class; 

    return $self; 
} 

sub start_element { 
    my ($self, $data) = @_; 
    # Do something useful using $data & $self->{thing} 
} 
1; 

而且我使用它与XML :: SAX :: ParserFactory：

#!/usr/bin/env perl 
use MyParser; 

my $parser = XML::SAX::ParserFactory->parser(
       Handler => MyParser->new 
      ); 
$parser->parse_string('<document/>'); 

有没有一种方法可以将参数传递给MyParser的new（）子例程？

Answer 1

你new方法已经被设置为接收使用%params，所以只是通过你的参数作为一个散列参数：

my $parser = XML::SAX::ParserFactory->parser(
      Handler => MyParser->new(param1=>$value1, param2=>$value2, ...) 
     ); 

然后在您的new方法，你可以访问这些参数，就像任何其他的散列：

$param1 = $params{param1}; 
$param2 = $params{param2}; 
...