Große XML in einfache Textdatei - #179860 (Allgemeines zu Perl)

huckleberry

2015-02-24 08:47

User since
2015-02-20
3 Artikel
BenutzerIn
[default_avatar]

Der XML-Ersteller hat darin wohl einen nutzen gesehen, aber ich interesseire mic auschl. für die Werte innerhalb der inneren Tags.
Ich habe nun meine XML mit dem herkömmlichen XML::Parser geparst, das funzt ganz gut soweit:
Parser erstellen:

Code: (dl )

	my $parser = new XML::Parser ( Handlers => {   # Creates our parse
                              Start   => \&hdl_start,
                              End     => \&hdl_end,
                              Char    => \&hdl_char,
                              Default => \&hdl_def,
                            });

Dann einen Start-Tag handler:

Code: (dl )

sub hdl_start{
      my ($p, $elt, %atts) = @_;
      
      return if $elt =~ /^(?:foo|bar|baz)$/;
	  
 
	  if ($elt eq 'Tag1')
	  {
	  	$firstAtt = $atts{'erstesAttribut'} );
	  }
#.. etc
}

und dann jeweils

Code: (dl )

  sub hdl_end {
      my ($p, $elt) = @_;
#etc..
}

und

Code: (dl )

1
2
3

  sub hdl_char {
 
      my ($p, $str) = @_;

Danke nochmal und VG
Huck