Prüfung, ob Konstante definiert wurde (solved) (Allgemeines zu Perl)

[thread]17622[/thread]

Prüfung, ob Konstante definiert wurde [solved]

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+15 replies
TheMic

2012-08-02 12:16
User since
2009-12-29
15 articles
BenutzerIn
Hallo,

ich bin gerade dabei Schnittstellenklassen, die wir in PHP bereitgestellt haben, auch in Perl zu erstellen (mit möglichst den gleichen Methodensignaturen).

Nun haben wir in PHP eine Klasse ErrorPage, die abhängig vom übergebenen Fehler (als Konstante in der Klasse ErrorPage definiert) auf eine Fehlerseite umleitet.

Das ganze Sieht in etwa so aus:
Code: (dl )

1 2 3

new ErrorPage(ErrorPage::VALIDATIONERROR); bzw. new ErrorPage('VALIDATIONERROR');
Die Klasse ErrorPage prüft ganz primitiv mittels der Methode defined(), ob der übergebene Fehler als Konstante definiert wurde:
Code: (dl )

1 2 3 4 5 6 7 8

private function isErrorAvailable($error) { if(defined('self::' . $error)) { return true; } else { return false; } }
Dies funktioniert, da der Konstantenwert immer gleich dem Konstantennamen ist. Ansonsten müsste man das per Reflection lösen. Anhand der vorhandenen Konstante wird nämlich entschieden, ob die Fehlerseite existiert oder nicht.

Nun weiß ich allerdings nicht, wie ich diese Prüfung in Perl lösen könnte. Per defined() wird hier wohl ausscheiden, da ich hiermit nur prüfen könnte, ob der übergebene Wert gesetzt wurde oder nicht und die Reflectionklassen, die ich bisher gesehen habe, hatten keine Prüfung auf Konstanten.

Ich nutze übrigens ActiveState Perl 5.8 in einer 32-bit Version.

Schonmal danke für eure Hilfe!

MfG Mic
- +14 replies
- pq
  
  2012-08-02 12:27
  User since
  2003-08-04
  12208 articles
  Admin1
  ich hab keine ahnung, was der code da tut. defined('self::' . $error) sieht für mich sinnlos aus. in perl ist ein string immer defined.
  
  daher kann ich nur raten, was du eigentlich willst.
  
  du willst wissen, ob eine konstante mittels use constant erstellt wurde?
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  say "yes" if defined &CONSTANT_NAME; # oder my $name = "CONSTANT_NAME"; say "yes" if defined &{ $name };
  
  das geht auch mit dem klassennamen vorangestellt, also "Package::CONSTANT_NAME".
  
  wenn du was anderes willst, schreib etwas mehr perl in deine frage.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +6 replies
  - TheMic
    
    2012-08-02 13:15
    
    User since
    2009-12-29
    15 articles
    BenutzerIn
    
    Genau das wollte ich wissen :D.
    
    Ich wusste nicht, dass man mit defined und dem '&' auch prüfen kann, ob die Funktion/Konstante vorhanden ist. Ich ging nämlich davon aus, dass beim Compilieren aus dem defined(KONSTANTE) ein defined(<Konstantenwert>) wird.
    
    Entschuldigung, dass ich mich etwas unklar ausgedrückt habe. In PHP bestimmt die Funktion defined, ob die Konstante, deren Name übergeben wird, existiert und definiert ist. Das 'self' steht in PHP für die aktuelle Klasse.
    
    Von mir aus kann man den Thread nun schließen.
    - Linuxer
      
      2012-08-02 13:19
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Du bist doch registrierter User. Du kannst den Thread selber als gelöst markieren.
      Schau mal im Thread oben unter der Überschrift des Threads...
      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!
    - +4 replies
    - pq
      
      2012-08-02 13:19
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      2012-08-02T11:15:20 TheMic
      Von mir aus kann man den Thread nun schließen.
      
      warum wollen die leute immer threads schliessen? damit andere leute keine chance haben, auch noch was nachzufragen? interessiert mich nur.
      
      klick bitte auf den grünen haken unter dem titel. da steht ein text "Thread als gelöst markieren"
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - TheMic
        
        2012-08-02 13:43
        
        User since
        2009-12-29
        15 articles
        BenutzerIn
        
        Ich bin aus anderen Foren gewöhnt, dass die Moderatoren und Administratoren die Threads so schnell wie möglich schließen wollen, damit diese ins Archiv verschoben werden können.
        
        +2 replies
        
        pq
        
        2012-08-02 13:57
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        ich kenn eigentlich nur ein forum mit archiv, und das ist zeitlich gesteuert und automatisch.
        
        habe bisher den sinn noch nicht verstanden. allein aus programmierer- oder admin-sicht ist ein archivieren günstig, da man das datenbanktechnisch optimieren kann, aber als user finde ich das meist ärgerlich, da man auf alte threads nicht mehr antworten kann, und dazu kann es ja mehrere gründe geben.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        bianca
        
        2012-08-02 19:18
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2012-08-02T11:57:26 pq
        habe bisher den sinn noch nicht verstanden.
        
        Ich würde wetten, die User meinen damit in der Mehrheit "erledigt kennzeichnen". Denn dem Fragesteller ist ja nur wichtig mitzuteilen, dass seine Frage beantwortet wurde und sich keiner mehr Gedanken machen braucht. Da es das aber in den meisten Foren garnicht gibt (ich bin froh, dass es das hier gibt!) wissen sie sich nicht anders auszudrücken.
        
        2012-08-02T11:57:26 pq
        allein aus programmierer- oder admin-sicht ist ein archivieren günstig, da man das datenbanktechnisch optimieren kann, aber als user finde ich das meist ärgerlich, da man auf alte threads nicht mehr antworten kann, und dazu kann es ja mehrere gründe geben.
        
        Kommt darauf an, was mit "archivieren" alles an Funktionen hinzukommt oder wegfällt. Ist ja Defintionssache.
        10 print "Hallo"
        20 goto 10
  - +7 replies
  - Muffi
    
    2012-08-02 13:22
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Vielleicht ist es meinen Hirn auch grad zu heiss, aber
    
    Code (perl): (dl )
    
    defined &CONSTANT_NAME
    
    returnt doch den Wert der Konstante und checkt auf defined.
    Zum testen obs die Konstante gibt hätt ich jetzt
    
    Code (perl): (dl )
    
    defined \&CONSTANT_NAME
    
    gesagt
    
    [EDIT]
    
    Achja, persönlicher Geschmack, aber ich hätt:
    
    Code (perl): (dl )
    
    if (__PACKAGE__->can('KONSTANTE'));
    
    genommen
    Last edited: 2012-08-02 13:29:57 +0200 (CEST)
    1 + 1 = 10
    - +4 replies
    - pq
      
      2012-08-02 13:35
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      2012-08-02T11:22:06 Muffi
      Vielleicht ist es meinen Hirn auch grad zu heiss, aber
      
      Code (perl): (dl )
      
      defined &CONSTANT_NAME
      
      returnt doch den Wert der Konstante und checkt auf defined.
      
      nein.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      use strict; use warnings; use v5.010; use constant FOO => 23; sub BAR { say 23 } use constant OOF => undef; say "FOO" if defined &FOO; say "BAR" if defined &BAR; say "NONE" if defined &NONE; say "OOF" if defined &OOF;
      
      Code: (dl )
      
      1 2 3
      
      FOO BAR OOF
      
      perldoc -f defined:
      
      Quote
      You may also use "defined(&func)" to check whether subroutine &func has
      ever been defined.
      
      Quote
      Zum testen obs die Konstante gibt hätt ich jetzt
      
      Code (perl): (dl )
      
      defined \&CONSTANT_NAME
      
      gesagt
      
      ungut, das ist immer defined (gibt dir eine coderef, auch wenn keine sub existiert) =)
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - Muffi
        
        2012-08-02 13:41
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Ich hab jetzt extra ein perl -e probiert, weil ichs selber sehn musste ;)
        Tatsach.
        
        Achja, das can ohne Vererbung müsst dann
        
        Code (perl): (dl )
        
        if (UNIVERSAL::can(__PACKAGE__, 'KONSTANTE'))
        
        sein.
        
        Aber so 100% klar was er haben will ists mir auch noch nicht.
        1 + 1 = 10
        
        +2 replies
        
        pq
        
        2012-08-02 13:53
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        2012-08-02T11:41:25 Muffi
        Achja, das can ohne Vererbung müsst dann
        
        Code (perl): (dl )
        
        if (UNIVERSAL::can(__PACKAGE__, 'KONSTANTE'))
        
        sein.
        
        bist du dir sicher?
        
        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
        
        use strict; use warnings; use v5.010; package PARENT; use constant PARENT_ONLY => 23; use constant BOTH => 42; package CHILD; use base 'PARENT'; use constant CHILD_ONLY => 99; use constant BOTH => 42.1; for my $name (qw/ PARENT_ONLY BOTH CHILD_ONLY /) { if (my $coderef = __PACKAGE__->can($name)) { my $result = $coderef->(); say "CHILD->can($name), result=$result"; } if (my $coderef = UNIVERSAL::can(__PACKAGE__, $name)) { my $result = $coderef->(); say "UNIVERSAL::can(CHILD, $name), result=$result"; } }
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        CHILD->can(PARENT_ONLY), result=23 UNIVERSAL::can(CHILD, PARENT_ONLY), result=23 CHILD->can(BOTH), result=42.1 UNIVERSAL::can(CHILD, BOTH), result=42.1 CHILD->can(CHILD_ONLY), result=99 UNIVERSAL::can(CHILD, CHILD_ONLY), result=99
        
        alle methoden werden gefunden, auch die im PARENT, egal welche variante von can() man aufruft.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Muffi
        
        2012-08-02 14:08
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Uh, dann muss ich das morgen unbedingt mal ausprobieren, ich hab den Verdacht, dass das "can" in unserem Framework da umgebaut wurde.
        
        [EDIT] Nach nochmaligem Nachdenken muss das fast so sein, weils keinen Grund gibt, warum sich die 2 Versionen unterschiedlich verhalten sollten, ausser dass die eine evtl. ein anderes can aufruft als die andere.
        Last edited: 2012-08-02 14:30:14 +0200 (CEST)
        1 + 1 = 10
    - +2 replies
    - pq
      
      2012-08-02 13:37
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      2012-08-02T11:22:06 Muffi
      Achja, persönlicher Geschmack, aber ich hätt:
      
      Code (perl): (dl )
      
      if (__PACKAGE__->can('KONSTANTE'));
      
      genommen
      
      das fragt dann gleich noch eventuelle elternklassen ab. muss man wissen, ob man hier vererbung haben will oder nicht. wenn ja, dann *sollte* man sogar can() verwenden.
      
      kann ich aber aus TheMics frage nicht herauslesen, was genau gewollt ist.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - TheMic
        
        2012-08-02 13:48
        
        User since
        2009-12-29
        15 articles
        BenutzerIn
        
        Ich will einfach nur herausfinden, ob die Konstante in der aktuellen Klasse bzw. dem aktuellen Package existiert oder nicht.
        Eine Vererbung der Klasse ist noch nicht vorgesehen. Eventuell wäre es aber wirklich sinnvoll, bereits die Funktion can() zu verwenden.

View all threads created 2012-08-02 12:16.