subroutine-referenz (Allgemeines zu Perl)

[thread]13331[/thread]

subroutine-referenz

Leser: 17

Articles: hide open all | hide show old branches

+11 replies
Gast Gast

2009-04-03 11:29
Hi!

Gibt es eine Dereferenzierung einer Referenz auf eine Subroutine, bei der man etwas erhält, dass man wie eine normale Subroutine einsetzen kann?
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

#!/usr/bin/perl use warnings; use strict; use feature ':5.10'; my $hash_ref = { eins => 1, zwei => 2, drei => 3, vier => 4 }; my %hash = %$hash_ref; say for keys %hash; my $array_ref = [ 1, 2, 3, 4 ]; my @array = @$array_ref; say for @array; my $sub_ref = sub { return 1234; }; # ????? = &$sub_ref(); # my $zahl = sub_routine()
- pq
  
  2009-04-03 11:34
  User since
  2003-08-04
  12209 Artikel
  Admin1
  man kann der symboltabelle die subref zuweisen, dadurch hat man dann keine anonyme sub mehr, sondern eine mit namen in der symboltabelle.
  wofür brauchst du das denn?
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  $ perl -wle'use strict; my $subref = sub { return 23 }; # zuweisung an symboltabelle *{ foo } = $subref; print foo();' 23
  
  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
- Linuxer
  
  2009-04-03 11:35
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Edit/Update nach Mittagspause ;o)
  
  OK, pq hat die Frage besser verstanden und passender beantwortet.
  
  Man kann die Referenz auch zum Routinenaufruf verwenden:
  
  Code: (dl )
  
  1 2 3 4 5
  
  $ perl -Mstrict -wle ' my $sref = sub { return 1234; }; print $sref->(); ' 1234
  
  Vielleicht solltest Du den Zusammenhang erklären, dann könnte man wahrscheinlicher bessere Tips geben.
  Last edited: 2009-04-03 12:40:30 +0200 (CEST)
  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!
- +8 replies
- Gast wer
  
  2009-04-03 12:48
  Ich denke sowas in der Richtung ist gemeint:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $ref=sub{say("HELLO\n")}; sub hello {$ref->()} hello();
  
  Nur mit dem Unterschied, dass die Funktion tatsächlich dereffenziert wird
  Pseudocode:
  
  Code: (dl )
  
  sub hello = &$ref;
  
  Sollte das nicht irgendwie so gehen?....
  
  Code: (dl )
  
  *hello = *$ref;
  - +7 replies
  - pq
    
    2009-04-03 12:55
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    ich hab doch schon gezeigt, wie es geht. übersehen?
    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
    - Gast wer
      
      2009-04-03 12:58
      
      Ja übersehen,
      Entschuldigung
      :/
      - +5 replies
      - Gast Gast
        
        2009-04-03 13:47
        
        Thx, soetwas habe ich gesucht.
        
        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
        
        package Mobile_Phone_Config; use warnings; use strict; use feature ':5.10'; use Term::ANSIColor; require Exporter; our @ISA = qw( Exporter ); our @EXPORT = qw( mobile_phone_config ); my $promt_color = 'magenta'; my $c_space = 2; sub mobile_phone_config { my %config = ( # ... => ..., # ... => ..., color_count => sub { my $count = shift; return colored( sprintf( "%${c_space}s", $count ), $promt_color ); }, print_promt => sub { print "\n" . colored( ':', $promt_color ); }, ungueltig => sub { say " - Ungültige Eingabe - \n"; sleep 2; }, ); return %config; } #... 1
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use warnings; use strict; use feature ":5.10"; use Mobile_Phone_Config; my %config = mobile_phone_config(); *{ color_count } = $config{color_count}; #*ungueltig = *$config{ungueltig}; sub print_promt { $config{print_promt}->() }; print color_count( 10 ); #ungueltig(); print_promt();
        
        Die auskommentierte Version hat nicht funktioniert.
        Ich hatte es zuerst mit sub routine { &$config{sub_ref}() } probiert, was nicht funktioniert hatte.
        
        +2 replies
        
        Gast Gast
        
        2009-04-03 16:13
        
        Mit Argumentübergabe funktioniert bei mir nur die Version
        
        Code (perl): (dl )
        
        *{ foo } = $subref;
        
        Linuxer
        
        2009-04-03 16:21
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Guest Gast
        Mit Argumentübergabe funktioniert bei mir nur die Version
        
        Code (perl): (dl )
        
        *{ foo } = $subref;
        
        Ja, weil Du bei der anderen Variante auch keine Argumente verarbeiten willst.
        
        Code (perl): (dl )
        
        1 2 3 4
        
        sub print_promt { $config{print_promt}->() }; # verarbeite auch die Argumente sub print_promt { $config{print_promt}->(@_) };
        
        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!
        
        Linuxer
        
        2009-04-03 16:29
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Code (perl): (dl )
        
        1 2 3
        
        *{ color_count } = $config{color_count}; #*ungueltig = *$config{ungueltig};
        
        Die auskommentierte Variante ist in meinem Augen falsch.
        Aufgrund viel zu dünner Fehlerbeschreibung ("funktioniert nicht") und mangelnder Zeit das nachzustellen, sei Dir nur dringend angeraten, Dir die perldocs zum Thema Typeglobs und Symbol Table durchzulesen.
        
        http://perldoc.perl.org/perldata.html#Typeglobs-an...
        http://perldoc.perl.org/perlmod.html#Symbol-Tables
        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!
        
        betterworld
        
        2009-04-03 18:22
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Guest Gast
        Ich hatte es zuerst mit sub routine { &$config{sub_ref}() } probiert, was nicht funktioniert hatte.
        
        Diese Subref-Aufrufe mit "&" sind etwas unhandlich, daher empfiehlt sich die Pfeilschreibweise.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        # Für einfache Subref $subref->(10); # Für Subref in Hash drin $config{sub_ref}->(10); # Oder kürzer (Pfeile zwischen Klammern darf man meist weglassen) $config{sub_ref}(10);
        
        So, nun da wir geschrieben haben, wie man die Dinger aufruft: Warum willst Du das noch in einen Typeglob reintun? Ruf sie doch einfach so auf wie in meinem Code-Beispiel. Symboltabellen-Rumhackerei ist oft praktisch, aber wenn man es nicht wirklich braucht, ist es schöner, es wegzulassen.
        Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2009-04-03 11:29.