XML::Parser::parsefile durch die Struktur ...: iterieren, aber wie ? (Seite 2) (Allgemeines zu Perl)

ptk

2006-02-01 00:03

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Hinzufügen will ich nur, dass sich eventbasierte Parser meistens für große Datenmengen eignen (der Parser muss nur einen kleinen Teil der Datei im Speicher halten), dafür in der Handhabung meist umständlicher ist. Mit treebasierten Parsern geht das Handling meist einfacher zu den Preis, dass die gesamten Daten gleichzeitig im Speicher stehen (und das kann viel mehr sein, als die XML-Datei auf der Festplatte verbraucht).

Matze

2006-02-01 15:46

User since
2005-08-29
222 Artikel
BenutzerIn

Achso, mmh, dann wäre vielleicht doch XML::LibXML besser.

Also, es gibt bei XML::LibXML Zugangsfunktionen zu den Tags.
Und die Struktur wird nicht in der Reihenfolge der Tags verändert ?

Dann wäre nur noch eins, was passiert mit Attributen, werden die an den Anfang oder ans Ende gestellt, bei XML::LibXML ?
Oder werden sie garnicht beachtet ?

Danke schonmal für die viele Hilfe.

MfG. Matze

Mit freundlichen Grüßen: Matze

ptk

2006-02-01 23:36

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Du scheinst mit XML::Simple zu vergleichen, wo tatsächlich alles (Attribute, Unterelemente, Text) vermischt auftreten kann. Bei XML::LibXML hast du für alle Typen eigene Zugriffsmethoden.

renee

2006-02-02 01:46

User since
2003-08-04
14371 Artikel
ModeratorIn

Das ist ein relativ simples Beispiel (ungetestet):

test.xml:

Code: (dl )

<foren>
 <forum value="1">
   http://board.perl-community.de
 </forum>
 <forum value="2">
   http://perlmonks.org
 </forum>
</foren>

script.pl

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;

my $file = 'test.xml';
my $parser = XML::LibXML->new();
my $tree = $parser->parse_file($file);
my $root = $tree->getDocumentElement();

my @foren = $root->getElementsByTagName('forum');

foreach my $forum(@foren){
  print $forum->getAttribute('value'),": ",$forum->getData(),"\n";
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

ptk

2006-02-02 01:58

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Oder mit XPath (funktionierend):

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;

my $parser = XML::LibXML->new();
my $tree = $parser->parse_fh(\*DATA);
my $root = $tree->getDocumentElement();
for ($root->findnodes('//forum')) {
    print $_->findvalue('./@value') . " " . $_->findvalue('./text()'), "\n";
}
_ _ D A T A _ _
<foren>
<forum value="1">
  http://board.perl-community.de
</forum>
<forum value="2">
  http://perlmonks.org
</forum>
</foren>

\n\n

renee

2006-02-02 02:25

User since
2003-08-04
14371 Artikel
ModeratorIn

@ptk: kannst Du mein Beispiel mal testen?? Ich habe hier kein XML::LibXML...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

ptk

2006-02-02 10:13

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Statt getData willst du wahrscheinlich das Ergebnis von textContent().

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;

my $file = 'test.xml';
my $parser = XML::LibXML->new();
my $tree = $parser->parse_fh(\*DATA);
my $root = $tree->getDocumentElement();

my @foren = $root->getElementsByTagName('forum');

foreach my $forum(@foren){
 print $forum->getAttribute('value'),": ",$forum->textContent(),"\n";
}
_ _ DATA _ _
<foren>
<forum value="1">
  http://board.perl-community.de
</forum>
<forum value="2">
  http://perlmonks.org
</forum>
</foren>

renee

2006-02-02 11:32

User since
2003-08-04
14371 Artikel
ModeratorIn

Hat sich das irgendwie geaendert?? Ich habe das getData() aus einem Buch (was aber schon etwas aelter ist)...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

ptk

2006-02-03 00:57

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Keine Ahnung, mit getData wurde nur undef zurückgegeben.