You are here: Wissensbasis Web>UtilFaqInclude>PerlUndXMLTwig (2005-07-11)

Wie benutze ich XML::Twig

Inhalt:

Wer häufiger mit XML zu tun hat, steht immer wieder vor dem Problem, XML parsen zu müssen. Hierfür gibt es viele gute Module. Ein sehr einfaches, für nicht so anspruchsvolle Aufgaben aber sehr gutes, Modul ist XML::Simple. Doch für schwierigere Aufgabenstellungen ist es meiner Meinung nach nicht sehr gut geeignet. Dann treten Module wie XML::LibXML oder eben XML::Twig in Aktion.

Hier ein Beispiel für den Einsatz von XML::Twig zum Auslesen der Attribute eines TABLE-Tags 

#! /usr/bin/perl

use strict;
use warnings;
use XML::Twig;

my @table_atts;
my $xml_file = '/path/to/file.xml';
parseFile($xml_file);

print $_,"\n\n" for(@table_atts);

sub parseFile{
  my ($filename) = @_;
  my $parser  = XML::Twig->new( twig_handlers   => { 'TABLE' => \&_tables},   );
  $parser->parsefile($filename);
  my $root    = $parser->root;
}# parsefile

sub _tables{
  my ($t,$table,$self) = @_;
  push(@table_atts,$table->{att});
}# _tables

Ergänzungen, Kommentare

Kommentare werden am besten in folgender Form vorgenommen, damit sie im Inhaltsverzeichnis angezeigt werden (natürlich ohne das <verbatim>): 
---+++ Main.??? - 14 Jul 2003 - Betreff

UtilFaqSubForm edit

Titel Wie benutze ich XML::Twig
Autor ReneeBaecker
Bereich FaqPerlUndXML
Edit | Attach | Print version | History: r2 < r1 | Backlinks | View wiki text | Edit wiki text | More topic actions
Topic revision: 2005-07-11, ReneeBaecker
 
Bitte die NutzungsBedingungen beachten.
Bei Vorschlägen, Anfragen oder Problemen mit dem PerlCommunityWiki bitten wir um WebBottomBarExample">Rückmeldung.