如何將參數傳遞給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}; 
...