Variablenprefix bei Array/Hash (gelöst) (Allgemeines zu Perl)

[thread]15912[/thread]

Variablenprefix bei Array/Hash [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+8 replies
t3kkn0kr4t

2011-02-01 10:21
User since
2007-07-26
3 Artikel
BenutzerIn
Ich bin gerade dabei, mich bezüglich VMware mit dem Thema Perl-Scripting beschäftigen. Mein Problem ist jedoch eher grundsätzlich.
In Beispielscripten die man im Netz findet sehen array/hash Initialisierung + Zugriff so aus:

array:
Code (perl): (dl )

1 2

@array = ( 'Quad', 'Circle', 'Triangle' ); print @array;
hash:
Code (perl): (dl )

1 2

%hash = ( key1=>'Quad', key2=>'Circle', key3=>'Triangle' ); print %hash;
In einem VMware Beispiel-Script, in dem Arrayzuweisungen auf Objekte erfolgen, funktioniert das nur so:
Code (perl): (dl )

1 2 3

# configManager property of host my $configManager = $host_view->configManager; print %$configManager;
Also der Variablenpräfix ist hier %$. Bei Verwendung von "%configManager" bekomme ich eine Fehlermeldung. Kann mir einer die Hintergründe dazu erklären?
Last edited: 2011-02-01 10:32:16 +0100 (CET)
- +7 replies
- murphy
  
  2011-02-01 10:38
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  2011-02-01T09:21:32 t3kkn0kr4t
  [...]
  Also der Variablenpräfix ist hier %$. Bei Verwendung von "%configManager" bekomme ich eine Fehlermeldung. Kann mir einer die Hintergründe dazu erklären?
  
  Genau genommen ist das zum Variablennamen gehörige Sigil hier lediglich das $, welches eine Skalarvariable bezeichnet. Das % ist hier der Dereferenzierungsoperator für einen Hash.
  
  Wenn Du jetzt nur Bahnhof verstanden hast, solltest Du nicht verzweifeln sondern mal perlreftut und/oder perlref lesen ;-)
  When C++ is your hammer, every problem looks like your thumb.
  - +6 replies
  - t3kkn0kr4t
    
    2011-02-01 11:18
    
    User since
    2007-07-26
    3 Artikel
    BenutzerIn
    
    Hi,
    
    kein Problem wenn hier irgendwelche sprachbezogenenen Begrifflichkeiten hinzukommen ;-)
    
    Du schreibst:
    
    Quote
    Genau genommen ist das zum Variablennamen gehörige Sigil hier lediglich das $, welches eine Skalarvariable bezeichnet.
    
    Also ist @array dann keine Skalarvariable?
    - bianca
      
      2011-02-01 11:57
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2011-02-01T10:18:06 t3kkn0kr4t
      Also ist @array dann keine Skalarvariable?
      
      Richtig. Es ist ein Array.
      $array[x] wäre ein Skalar.
      
      Edit: Es gibt in Perl einen sog. scalaren Kontext. Sieht man in fast jeder Hilfedatei.
      Beispiel: perldoc -f keys
      Teilweise drückt man das durch bestimmte Klammern und teilweise durch diese Sigils aus.
      Last edited: 2011-02-01 12:11:55 +0100 (CET)
      10 print "Hallo"
      20 goto 10
    - +4 replies
    - Taulmarill
      
      2011-02-01 12:19
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      $foo ist ein Scalar, @foo ein Array und %foo ein Hash. Außerdem benutzt man immer das Sigil des Datentyps, den man zurück erhalten will. Wenn ich also eine Liste von mehreren Werten aus einem Hash will, sieht das so aus:
      
      Code (perl): (dl )
      
      my @values = @hash{qw/key1 key2 key3/};
      
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +3 replies
      - t3kkn0kr4t
        
        2011-02-07 15:38
        
        User since
        2007-07-26
        3 Artikel
        BenutzerIn
        
        So, die Fragezeichen im Kopf sind etwas weniger. Zu dem Beispiel im OP und dem Script, welches ich hätte posten sollen, ist meinem Arbeitskollegen folgendes Snippet zur Veranschaulichung eingefallen:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        #!/usr/bin/env perl %test = "test123"; $link = "test"; print %$link, "\n";
        
        Quote
        ./testhash.pl
        test123
        
        Funktioniert und verwirrt...
        
        murphy
        
        2011-02-07 16:13
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2011-02-07T14:38:39 t3kkn0kr4t
        [...]
        ist meinem Arbeitskollegen folgendes Snippet zur Veranschaulichung eingefallen:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        #!/usr/bin/env perl %test = "test123"; $link = "test"; print %$link, "\n";
        
        [...]
        Funktioniert und verwirrt...
        
        Da hat jemand aber eine merkwürdige Vorstellung von Veranschaulichung ;-)
        
        Was passiert ist folgendes:
        
        %test = "test123" erzeugt eine Hashvariable¹, in der dem Schlüssel "test123" der Wert undef zugeodnet wird.
        $link = "test" erzeugt eine Skalarvariable¹ mit der Zeichenkette "test" als Inhalt.
        %$link dereferenziert die Skalarvariable $link als Hash¹. Da diese Variable aber gar keine Referenz sondern eine Zeichenkette enthält, wird nach einer Hashvariablen mit dem durch die Zeichenkette gegebenen Namen gesucht. Da solch eine Variable im ersten Schritt angelegt wurde, wird dieser Hash verwendet.
        print ... evaluiert seine Argumente im Listenkontext, wodurch der dereferenzierte Hash zu den zwei Werten "test123" und undef expandiert.
        print ... hängt seine Argumente als Zeichenketten aneinander, wobei undef als leere Zeichenkette interpretiert wird². Das Resultat wird ausgegeben.
        
        ¹: An diesen Stellen würde in einem ordentlich geschriebenen Perlprogramm, das das Pragma strict verwendet, ein Fehler auftreten.
        
        ²: An diesen Stellen würde das Pragma warnings eine Warnung erzeugen.
        
        Eine sauberere Version dieses Codes sähe vielleicht so aus:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        use 5.012; use warnings; # Hash erzeugen my %test = ( test123 => undef ); # Hashreferenz erzeugen my $link = \%test; # Hashschlüssel und -werte ausgeben, # undefinierte Werte explizit durch leere # Zeichenketten ersetzen say map { $_ // '' } %$link;
        
        Alternativ könnte man auch eine anonyme Hashreferenz verwenden, die Definition von %test weglassen und
        
        Code (perl): (dl )
        
        my $link = { test123 => undef };
        
        schreiben.
        When C++ is your hammer, every problem looks like your thumb.
        
        Dubu
        
        2011-02-09 09:14
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        2011-02-07T14:38:39 t3kkn0kr4t
        So, die Fragezeichen im Kopf sind etwas weniger. Zu dem Beispiel im OP und dem Script, welches ich hätte posten sollen, ist meinem Arbeitskollegen folgendes Snippet zur Veranschaulichung eingefallen:
        
        Ich hoffe sehr, dass dein Arbeitskollege so etwas nicht in produktivem Code nutzt. Das nennt man symbolische Referenz und ist seit dem letzten Jahrtausend pfui-bah. Den Grund kann man in VariablenAlsVariablennamen nachlesen. In modernem Perl benutzt man auch grundsätzlich "use strict" und "use warnings", und die verhindern normalerweise, dass man so einen Unsinn überhaupt nutzt (wie murphy schon geschrieben hat).
        
        Es ist auch sehr unwahrscheinlich, dass der letzte Codeausschnitt in deinem ersten Posting etwas mit symbolischen Referenzen zu tun hat. Dort wird es sich, wie auch von murphy angenommen, um eine Hashreferenz und ihre Dereferenzierung handeln. $host_view->configManager liefert höchstwahrscheinlich eine Hashreferenz zurück, die dann beim print mit dem Präfix "%" dereferenziert wird. (Einen Hash einfach so mit print auszugeben sieht aber nicht so toll aus, da einfach alle Schlüssel und Werte hintereinander geschrieben werden.)

View all threads created 2011-02-01 10:21.