Ternärer Operator und inexistente Hash-Schlüssel (gelöst) (Allgemeines zu Perl)

[thread]19304[/thread]

Ternärer Operator und inexistente Hash-Schlüssel [gelöst]

Tags: perl5 hash ternary operator Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+7 replies
borisd

2014-09-23 12:25
User since
2014-04-23
15 Artikel
BenutzerIn
Gestern musste ich Werte von grossen Hash-Strukturen einlesen und es konnte vorkommen, dass ein Schlüssel nicht vorhanden war. Ich dachte mir, dass es dann wohl am besten wäre auf diesen Fall mit exists zu prüfen und gegebenenfalls dann einen Default zu setzten (könnte auch einfach '' sein).
Das eleganteste was ich gefunden habe seht Ihr auf unten Zeile 19 bei my $var2 (Lösung mit ternärem Operator). Mich stört allerdings, dass man - gerade bei grösseren Hash-Strukturen - den ganzen Rattenschwanz zwei mal aufschreiben muss. Wirkt total unübersichtlich. Kennt jemand einen besseren Ansatz? Ist mein Szenario mit dem Default gar quatsch? Cool wäre doch, wenn man den Hash nicht zweimal da stehen hätte...
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

use strict; use warnings; use feature qw(say); my $data = { very => { deep => { hash => { structure => 1, }, }, } }; # gibt "undef" zurück my $var1 = $data->{very}{deep}{hash}{fail}; # setzt Default aber viel Redundanz im Code my $var2 = exists $data->{very}{deep}{hash}{fail} ? $data->{very}{deep}{hash}{fail} : 'kein Eintrag'; say "var1 -> $var1"; say "var2 -> $var2";
Die Ausgabe:
Code: (dl )

1 2 3 4

$ perl h.pl Use of uninitialized value $var1 in concatenation (.) or string at h.pl line 23. var1 -> var2 -> kein Eintrag
var1: Wenn man den Fall "undef" nicht behandelt besteht die Gefahr von Warnungen später im Programm.

var2: Geht ganz gut, aber wenn man viele Keys auslesen möchte wird es ganz schön viel Code mit all den doppelten Zeilen.

Ideen hierzu? Danke!

[Edit: Korrekturen gemäss Kommentaren, betreffend Warnung/undef]
Last edited: 2014-09-23 14:26:33 +0200 (CEST)
- +3 replies
- Linuxer
  
  2014-09-23 12:33
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Wenn undef kein gültiger Wert für Dich ist, dann kannst Du auch so arbeiten:
  
  Code (perl): (dl )
  
  my $var1 = $data->{very}{deep}{hash}{fail} // 'not defined';
  
  PS: Du bist Dir des Features "Autovivification" bewusst?
  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!
  - +2 replies
  - borisd
    
    2014-09-23 14:33
    
    User since
    2014-04-23
    15 Artikel
    BenutzerIn
    
    Hallo Linuxer,
    
    vielen Dank! Genau die Lösung die ich gesucht habe. Habe doch vermutet, dass es was geben muss.
    
    Ich muss gestehen, dass mir die meisten dieser "fancy" Kommandos nicht geläufig, d.h. im "aktiven" Wortschatz sind. Tatsächlich habe ich das mit Autovivification auch nicht im Bewusstsein gehabt. Danke speziell für diesen Hinweis. Der erklärt ja eigentlich so ziemlich alles.
    
    Damals als ich täglich Perl programmierte gabs das wohl auch noch gar nicht, daher habe ich immer das Bedürfnis alles mit exists zu testen. (Daher habe ich im original-Post auch die Warn-Message falsch zugeordnet ohne genauer zu lesen) >_<
    - Linuxer
      
      2014-09-23 15:56
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Naja, die Autovivification ist IMHO hier aber nicht ausschlaggebend für das Verhalten. Sie kann aber (un)erwünschte Nebeneffekte bringen.
      
      In Deinem gezeigten Beispiel ist das nicht ganz so tragisch, weil die Datenstruktur bis in die Tiefe schon vordefiniert ist (->very->deep->hash) und Du nur innerhalb dieser Tiefe auf einen Key zugreifst.
      
      Code (perl): (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 Data::Dumper; # hier definieren wir die Datenstruktur my $data = { foo => {}, }; my $var = $data->{foo}{bar}{baz}{barum} // 'not defined'; print "var: $var\n"; # und hier kontrollieren wir die Datenstruktur nochmal: print Data::Dumper->new( [ $data ], '*data' )->Sortkeys(1)->Dump();
      
      Resultat:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      var: not defined $VAR1 = { 'foo' => { 'bar' => { 'baz' => {} } } };
      
      Mein Beispiel ist nur bis zur ersten Ebene (->foo) definiert; es wird aber viel tiefer zugegriffen (auf "barum" in ->foo->bar->baz). Bei diesem Zugriff werden die fehlenden Ebenen automatisch angelegt. Das ist dann im Dump gut zu erkennen, dass plötzlich mehr Ebenen in der Hash-Struktur stecken als am Anfang definiert.
      Dieses Verhalten ist toll, wenn man tiefe Struktur "on-the-fly" generieren will, kann aber eben bei solchen Abfragen - unerwünscht - Strukturen aufbauen...
      
      Wenn, wie du geschrieben hast, Du aber viele Keys in vielleicht verschiedenen Orten abfragen willst, kann das schon zuschlagen...
      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!
- rosti
  
  2014-09-23 12:45
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Den Hash binden mit Tie::Hash, die Methode FETCH überlagern und einen mir/Dir gefälligen Default-Wert setzen.
- +2 replies
- Raubtier
  
  2014-09-23 13:29
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  2014-09-23T10:25:29 borisd
  
  Code (perl): (dl )
  
  1 2
  
  # gibt Warnung aus my $var1 = $data->{very}{deep}{hash}{fail};
  
  Der Kommentar ist irreführend, denn diese Zeile gibt natürlich keine Warnung aus. Wenn fail nicht existiert, enthält $var1 allerdings den Wert undef, der beim Ausgeben eine Warnung ergibt.
  
  Du könntest also dann schreiben: say $var1 // "kein Eintrag" oder den //-Operator gleich wie von Linuxer beschrieben anwenden.
  - borisd
    
    2014-09-23 14:36
    
    User since
    2014-04-23
    15 Artikel
    BenutzerIn
    
    Ich habe es im Post korrigiert. Tatsächlich war ich "irregeführt"... habe nämlich wie von Linuxer angemerkt das Autovivication nicht beachtet. Danke für den Hinweis.

View all threads created 2014-09-23 12:25.