nur Stringkonstanten? (gelöst) (Allgemeines zu Perl)

[thread]20377[/thread]

nur Stringkonstanten? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+16 replies
lichtkind

2017-10-02 00:49

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

ich bin auf etwas seltsames gestoßen:

use constant {
....
BEFORE => 'BEFORE',
...

soweit bekannt ... nun verwende ich überraschenderweise die Konstante auch als schlüssel eine hashes:

$self->{HOOK}{$method}{BEFORE}....

Soweit auch noch nicht schlimmt. Nur wenn ich den Wert von BEFORE in eine zahl ändere fangen die probleme an. Ich will nicht alles hier aufzählen weil in meinem module jede menge abgefahrene sachen passieren und ich zur laufzeit auch noch routinen nachkompiliere und per hand in symbol tabelle pflanze. Nur dürfe es doch nicht brechen wenn ich den wert einer Konstante in eine Zahl umwandle oder sind numerische hashkeys was besonderes?
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
- +10 replies
- rosti
  
  2017-10-02 07:58
  
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  
  Ein hash möchte als Key grundsätzlich einen String haben. Von daher dürfen auch die Stringbegrenzer entfallen: Für den Perl-Interpreter ist damit eindeutig, was der Programmierer beabsichtigt. Im Beispiel $h{time} = 123; interpretiert der Perl-Interpreter also time nicht etwa als Funktion sondern als String.
  
  Auch das hier $h{time()} = 123; teilt dem Perl-Interpreter eine eindeutige Absicht mit: time() wird als Funktion ausgeführt und der RV als Key verwendet weil es ein String ist.
  
  Referenzen jedoch sind als Schlüssel unzulässig. MfG
  - +8 replies
  - Muffi
    
    2017-10-02 11:16
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Quote
    Referenzen jedoch sind als Schlüssel unzulässig
    
    Was meinst du damit?
    1 + 1 = 10
    - +7 replies
    - rosti
      
      2017-10-02 12:56
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      2017-10-02T09:16:02 Muffi
      Quote
      Referenzen jedoch sind als Schlüssel unzulässig
      
      Was meinst du damit?
      
      Na überlege doch mal selbst was pasiert wenn eine Referenz als String interpretiert wird. Im Zweifelsfall ausprobieren ;)
      - +6 replies
      - Muffi
        
        2017-10-03 10:48
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Da wird die Speicheradresse draus.
        Ich hab das schon öfter gemacht, dass ich in einem Hash pro Objekt Zusatzdaten speicher.
        Da steck ich einfach das Objekt als Hashkey rein
        Last edited: 2017-10-03 10:52:43 +0200 (CEST)
        1 + 1 = 10
        
        +5 replies
        
        rosti
        
        2017-10-03 17:50
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        2017-10-03T08:48:29 Muffi
        Da wird die Speicheradresse draus.
        Ich hab das schon öfter gemacht, dass ich in einem Hash pro Objekt Zusatzdaten speicher.
        Da steck ich einfach das Objekt als Hashkey rein
        
        Warum die Daten nicht im Objekt selbst speichern? Dafür isses doch da.. und das macht auch das Debuggen einfacher wenn alles beisammen ist.
        
        VG
        
        +4 replies
        
        Muffi
        
        2017-10-04 08:30
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Zum Beispiel weil das vererbt werden müsste und Vererbung, vor allem wenn Felder hinzugefügt werden müssen, in Perl halt so eine Sache ist (zumindest ohne Hilfsframeworks).
        1 + 1 = 10
        
        +2 replies
        
        lichtkind
        
        2017-10-04 20:57
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        naja geht schon, weil getter und setter vererbt werden und die dann auf den internen hash zugreifen. Einziger nachteil ist die fehlende Namenskollisionsvermeidung.
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        Muffi
        
        2017-10-05 09:09
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Namenskollisionen sind ein Problem, aber ich leg dann normalerweise einen extra key mit __PACKAGE__ an.
        Aber auch damit kanns theoretisch sein, dass man das Objekt zerstört.
        
        Ich hab schon sowas wie for (keys %$self) im Objekt gesehn. Keine Ahnung was passiert wenn ein neuer da ist.
        Oder es kommt ein Array-Objekt an, dann wird's ganz doof.
        
        Theoretisch könnts ja sogar ein Scalar-Objekt sein, z.B. bei einem inside-out Objekt
        1 + 1 = 10
        
        rosti
        
        2017-10-06 07:36
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        2017-10-04T06:30:36 Muffi
        Zum Beispiel weil das vererbt werden müsste und Vererbung, vor allem wenn Felder hinzugefügt werden müssen, in Perl halt so eine Sache ist (zumindest ohne Hilfsframeworks).
        
        Stimmt, da hast Du Recht. Man sollte eine Klasse, deren Erbe man antreten will, schon sehr genau kennen, also auch die Interna. Andererseits werden Eigenschaften ja nur dann geerbt, wenn der Konstruktor der SUPER Klasse aufgerufen wird. Oder wenn geerbte Methoden aufgerufen werden welche bestimmte Eigenschaften verändern. VG
  - lichtkind
    
    2017-10-02 13:38
    
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    dein hinweise war entscheidend.
    
    was ich nicht mitbekam:
    in ... hod}{BEFORE}{$ ...
    nahm er das BEFORE als literalen string (also 'BEFORE'). Ausserhalb der Hash keys wurde es evaluiert, sodaß die Probleme bereits anfangen wenn konstante und inhalt ungleich sind. Hab jetzt überall in hashkeys {BEFORE()} stehen und auch numerische inhalte ändern nichts am am butterweichen Lauf der Perlprogramms.
    
    Dank
    nochmal
    Last edited: 2017-10-02 13:52:11 +0200 (CEST)
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
- +3 replies
- renee
  
  2017-10-02 09:50
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  So ganz ist mir nicht klar, was genau Dein Problem ist...
  
  Ich gehe jetzt mal von folgendem Programm aus:
  
  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
  
  #!/usr/bin/perl use v5.10; use strict; use warnings; use constant { BEFORE => 'BEFORE', }; my $self = { HOOK => { hello => { BEFORE => 'welt', 123 => 'eine zahl', } } }; my $method = 'hello'; say $self->{HOOK}->{$method}->{BEFORE};
  
  Wenn man das ausführt, kommt welt raus. Soweit so gut. Wenn Du
  
  Code: (dl )
  
  1 2 3
  
  use constant { BEFORE => 'BEFORE', };
  
  in
  
  Code: (dl )
  
  1 2 3
  
  use constant { BEFORE => '123', };
  
  ändert, erwartest Du eine Änderung des Verhaltens?
  
  Das wird nicht passieren, weil - wie rosti schon sagte - das BEFORE in ->{BEFORE} als String interpretiert wird. Willst Du da den Wert der Konstanten benutzen, musst Du ->{BEFORE()} nutzen ("use constant" erstellt für die Konstanten Subroutinen plus etwas "Magie") oder ->{"".BEFORE}.
  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/
  - lichtkind
    
    2017-10-02 13:01
    
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    danke euch beiden sehr,
    
    ich arbeite das mal durch
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
  - Raubtier
    
    2017-10-02 13:39
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Um das Beispiel hier mal zu vereinfachen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    perl -MData::Dumper -E 'use constant {A => 1}; my %h = (A => 2); say Dumper \%h' $VAR1 = { 'A' => 2 }; perl -MData::Dumper -E 'use constant {A => 1}; my %h = (A() => 2); say Dumper \%h' $VAR1 = { '1' => 2 };
    
    Ich hätte vor diesem Thread nicht gewusst, ob nach dem "use constant" das A, das dann ja bereits bekannt ist, als Funktionsaufruf oder als ungequoteter String interpretiert wird. Offensichtlich ist letzteres der Fall.
    
    Also immer schön Klammer nutzen :-)
- +2 replies
- lichtkind
  
  2017-10-02 15:12
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  jou Raubtier hat es zeitgleich auch geschrieben, steht aber auch in der perldoc:
  
  You can get into trouble if you use constants in a context which automatically quotes barewords (as is true for any subroutine call). For example, you can't say $hash{CONSTANT} because CONSTANT will be interpreted as a string. Use $hash{CONSTANT()} or $hash{+CONSTANT} to prevent the bareword quoting mechanism from kicking in. Similarly, since the => operator quotes a bareword immediately to its left, you have to say CONSTANT() => 'value' (or simply use a comma in place of the big arrow) instead of CONSTANT => 'value' .
  Last edited: 2017-10-02 20:31:48 +0200 (CEST)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - rosti
    
    2017-10-02 15:38
    User since
    2011-03-19
    3492 Artikel
    BenutzerIn
    
    Jetzt hab ich auch noch was dazugelernt:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    use constant Z => 1984; my %h = (); $h{+Z} = 123; print Dumper \%h; # as expected
    
    Danke!!!

View all threads created 2017-10-02 00:49.