Methodenaufruf anhand des Methodennamens "objektorientiert" (Allgemeines zu Perl)

[thread]14357[/thread]

Methodenaufruf anhand des Methodennamens "objektorientiert"

Leser: 20

Articles: hide open all | hide show old branches

+9 replies
Gast Daniel

2009-12-09 15:21

Hallo,

Ich hab folgendes Problem:

ich habe eine "Klasse" in Perl welche mehrere Methoden besitzt.
Beispiel
Klasse::meth1
Klasse::meth2
(Sind in der realität ein paar mehr)

Jetzt habe ich ein Objekt dieser Klasse (also blessed ...)
my $this = Klasse->new();

Meine Frage ist nun:
kann ich irgendwie die methoden des "Objekts" anhand eines Strings aufrufen ?

Ohne Objekt geht es ja mit:
&{'MeineMethode');

aber
$this->&{'meth1'} funktioniert nicht.

Das ganze soll später natürlich dynamisch im script passieren (sonst könnte ich ja gleich "$this->meth1" schreiben)

Vielen Danke
Gruß
Daniel
- +8 replies
- pq
  
  2009-12-09 15:28
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das geht schon. ist die frage, ob du vielleicht ein XY-problem hast und es vielleicht mit der richtigen OOP anders zu lösen wäre.
  wenn du es unbedingt brauchst:
  
  Code (perl): (dl )
  
  1 2
  
  my $methodname = "foo"; $object->$methodname(...);
  
  aber vorsicht, wenn der name userinput ist, dann sollte du vorher prüfen, ob die methode erlaubt ist, mittels einer dispatch-tabelle. ansonsten könnte da nämlich im prinzip jede methode aller eingebundenen module aufgerufen werden.
  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
  - +7 replies
  - renee
    
    2009-12-09 16:44
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Ich mache so etwas ganz gerne mit can:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my $this = Klasse->new; my $methodname = 'irgendwas'; my $sub = $this->can( $methodname ); $this->$sub() if $sub;
    
    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/
    - +6 replies
    - pq
      
      2009-12-09 17:17
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      nützt dir aber auch nix:
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      $ perl -wle' use CGI; use File::Spec; print "yes" if CGI->can("File::Spec::catfile")' yes $
      
      so lassen sich immer noch beliebige methoden aufrufen.
      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
      - renee
        
        2009-12-09 18:23
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Stimmt... Ist mir so noch gar nicht bewusst gewesen. Aber wenn ich drüber nachdenke ist das logisch... Danke für den Hinweis.
        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
      - betterworld
        
        2009-12-09 20:07
        
        User since
        2003-08-21
        2613 Artikel
        ModeratorIn
        
        Oh, dass man damit sogar Methoden aus ganz anderen Modulen aufrufen kann, war mir auch noch gar nicht klar...
        
        [[Update: Also mir war bekannt, dass man Methoden aus beliebigen Modulen mit "$objekt->Modul::meth()" aufrufen kann, und dass man auch Methoden, die in String-Variablen stehen, aufrufen kann. Dass man das beides kombinieren kann, ist eigentlich logisch, war mir nur noch nicht so bewusst.
        
        Was genau ist eigentlich noch mal der Grund dafür, dass man Methoden aus Stringvariablen auch mit strict noch aufrufen kann?]]
        
        "can" hilft halt insofern, als dass man einen Fehler wie "Methode nicht gefunden" abfangen kann und durch anderes Verhalten oder eine eigene Fehlermeldung ersetzen kann. Ansonsten ist es afaik genau das gleiche Verhalten.
        
        Daniel: Was willst Du damit machen?
        Last edited: 2009-12-09 20:33:13 +0100 (CET)
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        murphy
        
        2009-12-09 23:58
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2009-12-09T19:07:39 betterworld
        [...]
        Was genau ist eigentlich noch mal der Grund dafür, dass man Methoden aus Stringvariablen auch mit strict noch aufrufen kann?
        [...]
        
        Ich denke mal das liegt daran, dass auch ein "normaler" Aufruf der Form $object->method(...) eigentlich eine symbolische Referenz auflöst, da zum Zeitpunkt der semantischen Analyse nicht bekannt ist, in welchen Paketen method gesucht werden muss. Erst wenn der Aufruf tatsächlich ausgeführt wird, kann der Interpreter nachsehen, mit welchem Paket $object gesegnet wurde und dann die passende Methode in den relevanten Symboltabellen suchen.
        
        Es macht wohl weder vom Sicherheitsaspekt noch von der Ausführungsgeschwindigkeit her einen signifikaten Unterschied auch den Methodennamen aus einer Variablen zu nehmen — mit dem Paketnamen von dem aus die Methodensuche gestartet werden soll hat man ohnehin bereits einen Textbaustein, der den auszuführenden Code bestimmt und daher im Vorhinein geprüft werden sollte und das Nachschlagen geht nicht schneller, nur weil das Skalar mit dem Methodennamen darin konstant ist und zum Syntaxbaum des Programmes gehört.
        When C++ is your hammer, every problem looks like your thumb.
        
        +2 replies
        
        sid burn
        
        2009-12-10 12:33
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Quote
        Was genau ist eigentlich noch mal der Grund dafür, dass man Methoden aus Stringvariablen auch mit strict noch aufrufen kann?
        
        Warum sollte es nicht unter "strict" gehen? Das soetwas geht hat sogar sein eigenes Buzzword bekommen Reflection. Und allgemein ist es ein nettes Feature das ich schon öfters nutze.
        
        Wenn du z.B. von einem Objekt drei eigenschaften ausgeben möchtest kannst du auch soetwas machen anstatt drei einzelne anweisung zu schreiben.
        
        Code: (dl )
        
        say map { $object->$_ } qw/method1 method2 method3/;
        
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        sid burn
        
        2009-12-10 12:51
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Oder:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        use JSON; use DateTime; my $dt = DateTime->now; print object_to_json($dt, qw/day month year hour minute second/), "\n"; sub object_to_json { my ( $object, @methods ) = @_; return to_json({ map { $_ => $object->$_ } @methods }); }
        
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-12-09 15:21.