Syntaxfrage: push @{ ... (Allgemeines zu Perl)

[thread]15350[/thread]

Syntaxfrage: push @{ ...

Leser: 24

Articles: hide open all | hide show old branches

+7 replies
Gast Netsrot50

2010-08-06 09:04
Hallo zusammen,

ich hatte kürzlich mit einem Codesschnipsel zu tun, in dem bei einem Hash die Keys und Values vertauscht wurden. Da einige dieser Values mehrfach vorkamen, wurde das Ziel-Hash so aufgebaut, dass die neuen Values in ein Array geschrieben wurden. Ein Beispiel:

Aus
Code: (dl )

1 2 3 4 5 6 7 8

Hash: viele_biere: $VAR1 = { 'Schlösser' => 'Alt', 'Krombacher' => 'Pils', 'Diebels' => 'Alt', 'Erdinger' => 'Weizen', 'Veltins' => 'Pils' };
wurde:
Code: (dl )

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

Hash: bierarten: $VAR1 = { 'Weizen' => [ 'Erdinger' ], 'Pils' => [ 'Krombacher', 'Veltins' ], 'Alt' => [ 'Schlösser', 'Diebels' ] };
Was bei der Transformation zu tun ist, ist halbwegs klar: für jeden ursprünglichen Value prüfen, ob im neuen Hash schon ein entsprechender Key mit Array existiert: falls ja, dann pushen, ansonsten neu anlegen und pushen.

In der mir vorliegenden Lösung wird diese Logik sehr elegant in einer Zeile abgearbeitet:
Code: (dl )

1 2 3 4

my %bierarten; for my $ein_bier ( keys %viele_biere ) { push @{ $bierarten{$viele_biere{$ein_bier}} }, $ein_bier; }
Und dazu möchte ich nun gerne mal fragen, ob es sich hier um einen spezielle Perl-Syntax handelt (bezogen auf @{..}). Falls ja, gibt es dann irgendwo eine Dokumentation drüber? Die Suche gestaltet sich aufgrund der Sonderzeichen leider schwierig.
Oder lässt sich dieses Vorgehen aus anderen Perl-Syntax-Elementen ableiten?

Vielen Dank!
Last edited: 2010-08-06 09:05:37 +0200 (CEST)
- +6 replies
- GwenDragon
  
  2010-08-06 09:14
  User since
  2005-01-17
  14783 Artikel
  Admin1
  Du meinst das?
  
  Code (perl): (dl )
  
  @{ $bierarten{$viele_biere{$ein_bier}} }
  
  Code (perl): (dl )
  
  $viele_biere{$ein_bier}
  
  dadurch bekommst du den Key für %bierarten
  
  Code (perl): (dl )
  
  $bierarten{$viele_biere{$ein_bier}}
  
  ist dann eine Referenz auf ein Array
  
  Code (perl): (dl )
  
  @{ $bierarten{$viele_biere{$ein_bier}} }
  
  wandelt die Arrayreferenz in ein Array um
  
  Code (perl): (dl )
  
  push @{ $bierarten{$viele_biere{$ein_bier}} }, $ein_bier;
  
  füllt das Array mit dem Wert $ein_bier
  
  Schau mal perldoc perldsc (Perl Data Structures Cookbook L) und perldoc perlref ( perlref - Perl references and nested data structures L) an.
  Last edited: 2010-08-06 09:19:43 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - renee
    
    2010-08-06 10:33
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Vielleicht hilft auch perldoc perlreftut (deutsch).
    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/
    - +4 replies
    - Gast Netsrot50
      
      2010-08-06 11:43
      
      Danke für Eure Anmerkungen und die Links - ich habe mich mal durchgearbeitet und festgestellt, dass mir zwei Dinge noch nicht klar waren.
      
      (1) Zum einen scheint es beim dereferenzieren von Arrays so zu sein, dass folgende Schreibweisen das gleiche bewirken
      
      Code: (dl )
      
      1 2 3 4 5
      
      my $array_ref = [1,2,3]; my array1 = @$array_ref; my array2 = @{$array_ref}; # Inhalt 'array1' gleich Inhalt 'array'2
      
      Warum hier allerdings geschweifte Klammern verwendet werden müssen, ist mir ein Rätsel, da ich diese Klammern eher mit Hashes in Verbindung bringe.
      Verbessert mich, falls ich mich irre...
      
      (2) Zum anderen hat mich das Verhalten der Zeile
      
      Code: (dl )
      
      push @{ $bierarten{$viele_biere{$ein_bier}} }, $ein_bier;
      
      bei undefinierten Werten beschäftigt (passiert ja immer dann, wenn eine Bierkategorie zum ersten Mal bearbeitet wird). Perl fügt dann automatisch ein neues Array hinzu. Auf einer der Webseiten steht dazu:
      Quote
      Das ist Perl, also macht es das Richtige.
      
      Na gut - buche ich also unter Ist halt so... ab ;-)
      Last edited: 2010-08-06 11:45:50 +0200 (CEST)
      - +3 replies
      - GwenDragon
        
        2010-08-06 12:03
        
        User since
        2005-01-17
        14783 Artikel
        Admin1
        
        Zu 1)
        Die Klammern dienen auch dazu, Perl und wohl auch Menschen eindeutig zu sagen, auf welchen Inhalt sich das Sigil (also $,@,%) es sich bezieht.
        
        Zu 2)
        Ich weiß jetzt nicht genau worauf du das undefiniert beziehst.
        
        Aber wie wäre die Verwendung von exists und defined?
        Beiespiel:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        if (defined $ein_bier # falls der Wert definiert ist && exists $viele_biere{$ein_bier}) { # falls schon ein Key im Hash existiert # Ah! Dann schön ins Array pushen } else { # was nun? }
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        renee
        
        2010-08-06 12:10
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Das undefiniert bezieht sich - glaube ich - eher auf eine nicht vorhandene Arrayreferenz im Zielhash:
        
        Code (perl): (dl )
        
        1 2 3
        
        my %ziel; push @{ $ziel{schluessel} }, 1;
        
        gibt keinen Fehler und keine Warnung, obwohl es für "schluesssel" ja noch keine Arrayreferenz gibt.
        
        Das ganze nennt sich Autovivification. Und es ist wirklich praktisch, dass Perl da keine Warnung ausgibt.
        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/
        
        Gast Netsrot50
        
        2010-08-06 12:17
        
        Zu 2)
        Wenn z.B. die Schleife das erste Pils-Bier erreicht, so gibt es im Hash bierarten diesen Value noch nicht. $bierarten{"Pils"} ist dann undefiniert. Das Spannende an der einzeiligen Syntax ist halt, dass dieser Umstand automatisch abgefangen wird. Perl stört sich nicht dran und erstellt einfach den Value "Pils" und fügt ein Array mit dem Pils-Bier ein.
        
        Klar: das ganze lässt sich auch in einer Abfrage mit if/else programmieren - ist dann nur etwas länger. Aber es ging mir ja gerade darum, die Syntax zu verstehen.
        
        Danke!
        Last edited: 2010-08-06 12:18:27 +0200 (CEST)

View all threads created 2010-08-06 09:04.