Hash mit Hash-Kombinationen (gelöst) (Allgemeines zu Perl)

[thread]19778[/thread]

Hash mit Hash-Kombinationen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+8 replies
jan99

2015-08-31 14:55
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich muss nochmal auf mein Lieblingsthema mit den Hashes und Array's nach längerer Zeit zurückkommen.

Ziel soll es sein ein Hash mit folgender Struktur abzubilden....

Quote
%RibbonTabSource = ( "RBP_100" =>
(
Name => "EBL_KOO"
UID => ("RBN_1" "RBN_2" "RBN_3" "RBN_4")
PenelID => ("RBN_1" "RBN_2" "RBN_3" "RBN_4")
)
"RBP_101" =>
(
Name => "EBL_Übersicht"
UID => ("RBN_1" "RBN_23" "RBN_3" "RBN_4")
PenelID => ("RBN_1" "RBN_52" "RBN_3" "RBN_4")
) )
)

(Fehler in der Klammerbezeichnung sind unbeabsichtigt!)

Nun habe ich bisher folgenden Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

my $flag_RibbonTabSource = 0; my $flag_RibbonPanelSource = 0; my $Ribbon_Name = ''; my $Ribbon_UID = ''; my $Ribbon_SourceRef_UID = ''; my $Ribbon_SourceRef_PanelID = ''; my @RibbonPanelSourceReference_UID = (); my @RibbonPanelSourceReference_PenelID = (); my %RibbonTabSource=(); my %RibbonPanelSource=(); # dann werden in einer Schleife Werte ausgelesen und entsprechend den nachfolgenden Variablen zugewiesen. ... $Ribbon_SourceRef_UID = get_xml_tag_subvalue_string($_,"UID"); push(@RibbonPanelSourceReference_UID, $Ribbon_SourceRef_UID); $Ribbon_SourceRef_PanelID = get_xml_tag_subvalue_string($_,"PanelID"); push(@RibbonPanelSourceReference_PenelID, $Ribbon_SourceRef_PanelID); # dann möchte ich den Hashes zusammenbauen ... if (!defined($RibbonTabSource{$Ribbon_UID})){ # einbinden der zugehörigen Tabs my %tmp_TabSource = (); $tmp_TabSource{'Name'} = $Ribbon_Name; $tmp_TabSource{'UID'} = @RibbonPanelSourceReference_UID; $tmp_TabSource{'PenelID'} = @RibbonPanelSourceReference_PenelID; $RibbonTabSource{$Ribbon_UID}=%tmp_TabSource; } else { print "*** RibbonTabSource - ".$Ribbon_UID." mehrfach !!!!\n"; }
Wenn das alles durchgelaufen ist, dann sollen Werte aufgelistet werden...
Code (perl): (dl )

1 2 3 4 5 6

print "--- RibbonTabSource ---\n"; for my $index (sort keys %RibbonTabSource){ my %data = $RibbonTabSource{$index}; # das ist Zeile 163 print $index."\n"; print $index." - ".$data{'Name'}."\n"; }
Wenn ich das Skript ausführe bekomme ich folgende Meldung:

Quote
Odd number of elements in hash assignment at cuixRibbonReader.pl line 163.
RBN_0111
Use of uninitialized value in concatenation (.) or string at cuixRibbonReader.pl
line 165.
RBN_0111 -

Kann mir einer weiterhelfen wo ich meinen Bock geschossen habe?

Gruß Jan
Last edited: 2015-08-31 22:53:49 +0200 (CEST)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +5 replies
- Raubtier
  
  2015-08-31 15:38
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  In einen Hash kannst du keinen anderen Hash speichern, sondern nur Hash-Referenzen.
  
  Daher müsste es oben schon heißen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  %RibbonTabSource = ( "RBP_100" => { Name => "EBL_KOO" UID => ("RBN_1" "RBN_2" "RBN_3" "RBN_4") PenelID => ("RBN_1" "RBN_2" "RBN_3" "RBN_4") }, "RBP_101" => { Name => "EBL_Übersicht" UID => ("RBN_1" "RBN_23" "RBN_3" "RBN_4") PenelID => ("RBN_1" "RBN_52" "RBN_3" "RBN_4") } )
  
  Beachte: geschwungene Klammern innen!
  
  Und ebenso geht naürlich das hier nicht:
  
  Code (perl): (dl )
  
  $RibbonTabSource{$Ribbon_UID}=%tmp_TabSource;
  
  Entweder ... = \%variable (Referenz) oder ... = { %variable } (Referenz auf Kopie).
  - +4 replies
  - jan99
    
    2015-08-31 16:05
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Danke erst einmal...
    
    ... na dann Prost malzeit !!!
    
    Quote
    $RibbonTabSource{$Ribbon_UID}=%tmp_TabSource;
    
    Wenn ich es dann richtig verstehe, dann müßte daraus
    
    Code (perl): (dl )
    
    $RibbonTabSource{$Ribbon_UID}={%tmp_TabSource};
    
    Werden....?
    
    Gruß Jan
    Last edited: 2015-08-31 16:07:52 +0200 (CEST)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +2 replies
    - Raubtier
      
      2015-08-31 16:45
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      Hast du es ausprobiert?
      
      Da hier das %tmp_TabSource direkt danach aus dem Scope verschwindet, kannst du auch direkt die Referenz nehmen (würde ich hier bevorzugen). Kopie geht selbstverständlich immer.
      - jan99
        
        2015-08-31 20:05
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Das war der letzte Gedanke vor dem Feierabend..
        
        Doku noch mitgenommen - aber ob ich noch Lust habe zum lesen... Wage ich zu bezweifeln....
        
        Gähnen...
        Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - lichtkind
      
      2015-08-31 22:55
      
      User since
      2004-03-22
      5730 Artikel
      ModeratorIn + EditorIn
      
      Code (perl): (dl )
      
      $RibbonTabSource{$Ribbon_UID}=\%tmp_TabSource;
      
      mein zeug:, Leute
      
      Es beginnt immer mit einer Entscheidung.
- +2 replies
- Linuxer
  
  2015-08-31 23:01
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Analog zum Hash-Problem, hast Du hier auch noch das analoge Problem mit Deinen Arrays.
  
  Code (perl): (dl )
  
  1 2
  
  $tmp_TabSource{'UID'} = @RibbonPanelSourceReference_UID; $tmp_TabSource{'PenelID'} = @RibbonPanelSourceReference_PenelID;
  
  Hier werden nicht die Elemente der Arrays zugewiesen, sondern die Anzahl der jeweiligen Elemente.
  Die Arrays stehen jeweils im skalaren Kontext.
  
  Hier müsstest Du ebenfalls mit Referenzen arbeiten, falls Du Interesse am Inhalt der Arrays hast.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - jan99
    
    2015-09-03 10:26
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Moin!
    
    ich habe mich etwas mit den verschaltelten Dingen arrangiert und umgebaut damit es etwas einfacher ist für mich. Ziel ist erreicht - auch wenn einige Variablen damit mehr entstanden sind.
    
    Danke für die Hilfe.
    
    Gruß Jan
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2015-08-31 14:55.