Syntax für sub Aufruf im Package? (gelöst) (Allgemeines zu Perl)

[thread]18121[/thread]

Syntax für sub Aufruf im Package? [gelöst]

Tags: perl5 syntax package sub Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+12 replies
bianca

2013-02-07 17:32

User since
2009-09-13
7016 Artikel
BenutzerIn

Hi!
Wie lautet denn die Syntax von meinmodul::meinesub() wenn ich sowohl "meinmodul" als auch "meinesub" in einem Hash liegen habe?
Danke
10 print "Hallo"
20 goto 10
- +9 replies
- Muffi
  
  2013-02-07 17:46
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Die einzige, bei der ich danach keinen Knoten im Hirn hab:
  
  Code (perl): (dl )
  
  UNIVERSAL::can($package, $subname)->();
  
  [EDIT] Soll man scheinbar laut Doku nicht.
  Dann wohl
  
  Code (perl): (dl )
  
  $package->can($subname)->();
  
  Last edited: 2013-02-07 17:51:02 +0100 (CET)
  1 + 1 = 10
  - +8 replies
  - bianca
    
    2013-02-07 17:55
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-02-07T16:46:57 Muffi
    Die einzige, bei der ich danach keinen Knoten im Hirn hab:
    
    Danke dir. Hört sich aber nicht gerade nach best practice an?
    Ich würde halt gern in einer Ausbaustufe mein Hauptmenü in einem Hash pflegen wie eine Art Dispatch Tabelle. Und die Hauptmenüpunkte sind halt separate Dateien, die ich per require nach Bedarf einbinde und die zu oberst mit package definiert werden sollen.
    Ist das nicht gut?
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - rosti
      
      2013-02-07 17:58
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      Liest sich so, als wäre das ein Fall für AutoLoader...
      - +2 replies
      - bianca
        
        2013-02-07 18:21
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-02-07T16:58:51 rosti
        Liest sich so, als wäre das ein Fall für AutoLoader...
        
        Was genau meinst du damit?
        10 print "Hallo"
        20 goto 10
        
        rosti
        
        2013-02-07 19:35
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        2013-02-07T17:21:48 bianca
        2013-02-07T16:58:51 rosti
        Liest sich so, als wäre das ein Fall für AutoLoader...
        
        Was genau meinst du damit?
        
        In PHP dient der Autoload-Mechanismus dazu, Klassen zu laden; mit einer weiteren PHP-Magic-Method kann auf Objekt-Attribute zugegriffen werden, die es bis dahin noch nicht gibt. In Summa geht per PHP dann sowas:
        
        echo $this->AnyClass->method();
        
        Idee, sowas in Perl zu bauen, dass könnte z.B. so aussehen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        use strict; use warnings; my $mo = bless{}, 'main'; # einfach eine Instanz Deiner Klasse (hier: 'main'); $mo->autoload('HTTP::Headers', 'header', 'Content-Type' => 'text/plain; Charset=UTF-8'); print $mo->autoload('HTTP::Headers', 'as_string'); sub autoload{ my $self = shift; my $classname = shift; my $methodname = shift; # weitere Parameter in @_ eval("use $classname"); # Klasse zur Laufzeit einbinden die "Can't use Class '$classname', Error: $@ \n" if $@; $self->{$classname} = $classname->new() if not exists $self->{$classname}; my $code = $self->{$classname}->can($methodname); $self->{$classname}->$code(@_); }
        
        Achtung: Die Fehlerbehandlung ist stark sanierungsbedürftig ;)
        Ansonsten wird alles richtig ausgegeben:
        
        Code: (dl )
        
        Content-Type: text/plain; Charset=UTF-8
        
        --Rosti
    - +4 replies
    - Muffi
      
      2013-02-07 18:01
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Das mit dem Knoten im Hirn war, dass mans in Perl auch per String irgendwie zusammenbasteln kann, aber ich mir die Syntax einfach nicht merken kann.
      
      Ansonsten kenn ich das Problem nicht wirklich. Wenns unbedingt so nötig ist, warum nicht.
      Man muss sich halt überlegen, dass jemand, der das Programm nicht kennt, was fixen muss und vor der Zeile "Ruf irgendwas irgendwo mit irgendwelchen Paramtern auf" steht wohl dir erstmal alle möglichen Krankheiten wünscht ;)
      1 + 1 = 10
      - +3 replies
      - bianca
        
        2013-02-07 18:29
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-02-07T17:01:49 Muffi
        Ansonsten kenn ich das Problem nicht wirklich.
        
        Ein ziemlich großes Projekt mit etwa 50 verschiedenen Modulen. Ein Modul ist ungefähr der Funktionsumfang wie dieses Forum hier.
        Daher habe ich jedes Modul in einer eigenen .pl Datei. Diese Dateien haben eine Größe von zwischen 250 KB bis 500 KB. Dazu gibt es eine main.pl mit einigen zentralen sub's und eine weitere Bibliothek mit ein paar Sub's. Die main.pl require't immer die jeweils gerade benötigte .pl Datei je nach Menü Aufruf.
        Das Hauptmenü in der main.pl ist im Moment eine schauderhafte Aneinanderreihnung von print's die ich gern umwandeln würde in eine zentrale Tabelle in Form eines Hash, wo dann auch die Berechtigungen sauber drin sind. Und die reine Ausgabe sowie das require und der Aufruf der jeweiligen sub will ich halt kapseln, weil ich das extrem redundant finde.
        Insofern denke ich nicht, dass mich dafür ein Wartungs-Arbeiter killen würde, wenn er es denn mal durchblickt hat.
        
        Was ist hier best practice?
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2013-02-07 19:00
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2013-02-07T17:29:16 bianca
        Was ist hier best practice?
        
        wenns ums web geht, Catalyst, Mojolicious, Dancer. mindestens Plack.
        
        oder die frameworks anschauen, um eine idee davon zu bekommen, wie mans macht.
        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
        
        2013-02-07 21:22
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Wow, der Funktionsumfang von dem Forum in einer Datei.
        Wenn ich geraten hätte wär bei mir was nicht unter 50 rausgekommen.
        
        Ich schliess mich an. Unbedingt ein Framework, wenn schon nach best practice gefragt wird.
        1 + 1 = 10
- topeg
  
  2013-02-07 18:48
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Aus dem Bauch heraus würde ich sagen:
  
  Code (perl): (dl )
  
  &{$class{name}.'::'.$func{name}}($parameter);
  
  Code (perl): (dl )
  
  1 2
  
  my $call=$class{name}.'::'.$func{name}; &$call($parameter);
  
  oder man macht es über can:
  
  Code (perl): (dl )
  
  $class{name}->can($func{name})->($parameter);
  
  Code (perl): (dl )
  
  UNIVERAL::can($class{name},$func{name})->($parameter);
  
  Musst du ausprobieren.
- bianca
  
  2013-02-08 09:52
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Danke für alle Antworten!
  Ich werde das wohl noch etwas vor mir her schieben. Muss im Moment funktionell weiter daran arbeiten. Wie so oft bleibt die Struktur auf der Strecke.
  Und eines Tages blickt man nicht mehr durch und sagt "ist so gewachsen"... :)
  10 print "Hallo"
  20 goto 10

View all threads created 2013-02-07 17:32.