Nochmal XML -.- (gelöst) (Allgemeines zu Perl)

[thread]15535[/thread]

Nochmal XML -.- [gelöst]

Tags: XML Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+5 replies
Nordlicht

2010-10-15 01:06
User since
2005-10-16
182 Artikel
BenutzerIn
Sorry, aber muss nochmal nerven... diesmal mit vollständigem Code:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict; use warnings; use XML::LibXML; my $filename = "base.xml"; my $parser = XML::LibXML->new(); my $doc = $parser->parse_file($filename); my $query = "/base/text()"; my ($node) = $doc->findnodes($query); # man beachte die Klammern! $node->setData('bla'); print $doc->toString;
Das funktioniert. Der Wert wird geändert, alles wunderbar. So, jetzt genau das gleiche nochmal, nur mit einer winzigen Änderung:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict; use warnings; use XML::LibXML; my $filename = "base.xml"; my $parser = XML::LibXML->new(); my $doc = $parser->parse_file($filename); my $query = "/base/text()"; my $node = $doc->findnodes($query); # <- "my $node" statt "my ($node)" $node->setData('bla'); print $doc->toString;
Ergebnis:
Code: (dl )

Can't locate object method "setData" via package "XML::LibXML::NodeList" at C:\Xitami\cgi-bin\Forum\director.pl line 15.
So, das erklär mir nun mal Jemand... Ich habe nur die Klammern beim *my* weg gelassen, alles andere ist exakt gleich.
Das ist exakt der Fehler, den ich in meinem anderen Thread nicht benennen konnte. Und da hatte es plötzlich wieder funktioniert, weil die Klammern in dem Beispiel gesetzt waren. Als ich dann meinen eigenen Code schreiben wollte, hab ich die Klammern weg gelassen, weil ich gewohnt bin, solche Klammern nur zu setzen, wenn ich mehrere Variablen erzeugen will:
Code: (dl )

1 2

... my ($varA, $varB, $varC) = split (...) # zum beispiel so...
...aber für eine einzelne, reicht normalerweise
Code: (dl )

my $var = "blubb"; # << da brauch ich keine Klammern, das funktioniert trotzdem.
So, jetzt seid Ihr dran :)
- +3 replies
- murphy
  
  2010-10-15 01:32
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Es ist klar, dass das nicht funktionieren kann, allerdings ist es vielleicht nicht offensichtlich. Das Problem hängt damit zusammen, dass Perl und die Methode findnodes der Klasse XML::LibXML::Node kontextsensitiv sind. In der Dokumentation der Methode steht
  
  Quote
  [...]
  findnodes evaluates the xpath expression (XPath 1.0) on the current node and returns the resulting node set as an array. In a scalar context returns a XML::LibXML::NodeList object.
  [...]
  
  Ob man um die Variable in der Deklaration Klammern setzt oder nicht macht nun aber genau den Unterschied, dass man den Typ des Kontexts verändert in dem der zuzuweisende Ausdruck ausgewertet wird:
  
  Schreibt man
  
  Code (perl): (dl )
  
  my ($node) = $doc->findnodes($query);
  
  so wird der Aufruf von findnodes im Listenkontext ausgewertet und die Listenelemente werden den auf der linken Seite deklarierten Variablen zugewiesen — in $node landet also der erste auf den XPath-Ausdruck $query passende XML-Knoten unterhalb von $doc, oder aber undef falls überhaupt kein Knoten gefunden wurde.
  Schreibt man
  
  Code (perl): (dl )
  
  my $node = $doc->findnodes($query);
  
  so wird der Aufruf von findnodes im Skalarkontext ausgewertet, so dass in $node kein Objekt des Typs XML::LibXML::Node sondern eines des Typs XML::LibXML::NodeList landet und diese Klasse unterstützt, wie die Fehlermeldung schon sagt, die Methode setData nicht.
  
  When C++ is your hammer, every problem looks like your thumb.
  - +2 replies
  - Nordlicht
    
    2010-10-15 16:01
    
    User since
    2005-10-16
    182 Artikel
    BenutzerIn
    
    Ok... das hab ich so nicht gewusst und war daher reichlich irritiert über den Fehler. Ob ich's schon verstanden hab, weiß ich allerdings auch nicht ^^
    
    Ich verstehe noch nicht, was die Klammern dabei bewirken... also nur weil ich eine Klammer setze, ist es dann ein Listenkontext, obwohl in der Klammer nach wie vor ein Skalar steht?! Wird einem sowas in "Programmieren mit Perl" (O'Reilly) erklärt? Wenn ja, hab ich das wohl übersprungen ^^
    - leo11
      
      2010-10-15 16:05
      
      User since
      2008-08-14
      250 Artikel
      BenutzerIn
      
      2010-10-15T14:01:24 Nordlicht
      Wird einem sowas in "Programmieren mit Perl" (O'Reilly) erklärt? Wenn ja, hab ich das wohl übersprungen ^^
      
      S.71f.
      
      Alternativ kannst du auch den Returnwert von findnodes in einem Array speichern und auf Feld 0 zugreifen.
- GwenDragon
  
  2010-10-15 10:50
  
  User since
  2005-01-17
  14783 Artikel
  Admin1
  
  Methoden von Perl-Packages oder Funktionen können je nach Kontext (Listen- oder Scalarer Kontext) verschiedenes zurück liefern.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-10-15 01:06.