Dreidimensionale Hashes mit Skalaren gemischt (gelöst) (Allgemeines zu Perl)

[thread]17262[/thread]

Dreidimensionale Hashes mit Skalaren gemischt [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
Gast Der aus dem Westen ...

2012-03-25 14:53
Für XML-Requests, die über mehrdimensionale Tags verschachtelt sind, definiere ich jeweils einen Hash, in dem die Werte stehen. Da die Tags mehrdimensional sei können, ist auch der Hash mehrdimenstional:
Code (perl): (dl )

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

#Die Values werden später gefüllt. my %hash= ( '1. Dimension, 1. Entry'=>'', '1. Dimension, 2. Entry'=>'', '1. Dimension, 3. Entry'=> { '2. Dimension, 1. Entry'=>'', '2. Dimension, 2. Entry'=>'', }, '1. Dimension, 4. Entry'=> { '2. Dimension, 3. Entry'=>'', '2. Dimension, 4. Entry' { '3. Dimension, 1. Entry'=>'' } } #usw ... );
Ich übergebe diesen Hash an eine allgemeine Funktion, welche den Hash und seine Subhashes rekursiv durchgeht:
Code (perl): (dl )

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

sub generate_xml { my(%mapping,$xml)=(%{$_[0]},''); foreach my $tag(sort keys %mapping) { #Subhash gefunden? Funktion mit diesem Subhash aufrufen. if(ref($mapping{$tag}) eq 'HASH') { $xml.="<$tag>".generate_xml($mapping{$tag})."</$tag>"; } else { $xml.="<$tag>$mapping{$tag}</$tag>"; } } return $xml; } print &generate_xml(\%hash);
An sich funktioniert das recht prima, allerdings wird mir jedes mal beim Aufrufen der Funktion eine Warnung angezeigt, dass ein uninitialisierter Werte in %mapping zu finden ist - beim Aufrufen und durchgehen des Haupthashes kommt diese Warnung, und bei jedem Aufruf eines Subhashes. Zudem kommt davor die Warnung, dass eine ungerade Zahl von Elementen in der Hashzuweisung auftauchen würde, in genau der Zeile, in der der Hash definiert wird. Ich habe bereits ein wenig getestet und nachgeschaut - die Syntax an sich stimmt, und die Elemente werden auch erkannt. Im XML-Content finden sich zwar leere Tags, aber die Elemente werden erkannt.

Ich bin den Hash schon mehrere Male durchgegangen - Punkt statt Komma, Runde Klammer statt Geschweifte Klammer usw., das bin ich durchgegangen. Ich kann keine unregelmässige Zuweisung der Hashes entdecken und vermute nun, dass es daran liegt, dass ich Skalare und Hashes verwende - in einer anderen Datei verwende ich dieses System ebenfalls, nur mit entweder reinen Skalar- oder Subhash-Hashes, und hier funktioniert es ohne ein Problem. Ansonsten wäre ich jetzt ein wenig ratlos ...

Perl-Version ist 5.10, Ubuntu 10.04
Last edited: 2012-03-25 15:20:17 +0200 (CEST)
- +2 replies
- pq
  
  2012-03-25 15:24
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  hast du den hash schonmal mit Data::Dumper ausgegeben, um zu sehen, ob er wirklich so aussieht, wie du denkst?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast Der aus dem Westen ...
    
    2012-03-25 15:34
    Nein, Data::Dumper war mir noch unbekannt. Den Hash habe ich mir jetzt mit:
    
    Code (perl): (dl )
    
    print Dumper(\%hash);
    
    ausgeben lassen, der sieht soweit gut aus - kann weder leere Keys noch ungewollte leere Values ausmachen.
    
    Irgendwie macht der Vorschlag den Eindruck, dass du auf Anhieb auch nicht weißt, woran es liegen könnte ... :(
    Last edited: 2012-03-25 15:50:23 +0200 (CEST)
- +2 replies
- pq
  
  2012-03-25 15:58
  User since
  2003-08-04
  12209 Artikel
  Admin1
  mach mal folgendes:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  sub generate_xml { my ($mapping) = @_; my $xml = ''; foreach my $tag (sort keys %$mapping) {
  
  und aus $mapping{$tag} machst du jeweils $mapping->{$tag}
  
  es gibt gar keinen grund, die hashreferenz zu dereferenzieren.
  arbeite einfach direkt mit der referenz.
  
  das problem ist:
  my(%mapping,$xml)=(%{$_[0]},'');
  hier wird dem hash %mapping alles zugewiesen, auch der leere string, und $xml geht dann leer aus. und daher kommen die fehlermeldungen (%mapping hat dann einen leeren string als key und undef als value).
  
  es wäre übrigens nett gewesen, wenn du die fehlermeldungen hier gepostet hättest. sind ja nicht geheim oder so.
  Last edited: 2012-03-25 16:01:25 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast Der aus dem Westen ...
    
    2012-03-25 16:12
    Himmelherrgott, ich bin blöd. Skalar in Sammelzuweisung immer zuerst zuweisen - tut mir Leid, tut mir wirklich Leid, ich habe das mit der Umwandlung von Hashes in Arrays einfach übersehen. Ich habe das jetzt so geändert:
    
    Code (perl): (dl )
    
    my ($xml,$mapping)=('',@_);
    
    Es funktioniert - ich bin so blöd. :(
    
    Ich meinte, ich hätte die Fehlermeldung angegeben (ins Deutsche übersetzt, klar - aber dann weiß ich für das nächste Mal Bescheid).

View all threads created 2012-03-25 14:53.