Symbolische Referenz trotz strict (Allgemeines zu Perl)

[thread]13942[/thread]

Symbolische Referenz trotz strict

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
Gast Coder

2009-08-27 13:02
Hi!
Möchte gern den Namen einer sub über eine Variable ziehen. Daher verwende ich
Code (perl): (dl )

&{$subname}
Das läuft aber nur, wenn ich das über
Code (perl): (dl )

no strict 'refs';
zulasse, sonst bekomme ich auf die Finger.

Gibts eine Möglichkeit, auf no strict zu verzichten und dennoch eine sub über eine Variable aufzurufen?
- +4 replies
- pq
  
  2009-08-27 13:08
  User since
  2003-08-04
  12209 Artikel
  Admin1
  ja.
  aber es ist nichts verwerfliches daran, es mit no strict zu machen, vorausgesetzt, du schaltest es nur in einem kleinen bereich ab, also
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use strict; ... { # hier mach ich was "boeses" no strict 'refs'; &{ $subname }; } # hier ist wieder alles ganz strict
  
  alternativ:
  
  Code (perl): (dl )
  
  main->can($subname)->(); # bzw. statt main auch ein anderes package
  
  je nachdem, wo der subname herkommt, solltest du natürlich noch ein bisschen validieren.
  
  generell kann man hier immer eine dispatch-table empfehlen, da kannst du wenig falsch machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my %table = ( foo => \&foo, bar => \&bar, ... ); $table{ $subname }->(); # call
  
  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
  - Gast Coder
    
    2009-08-27 13:39
    
    Egal wie, die sub-aufrufe muss ich auf jeden fall ändern, oder?
    Kann ich dem strict nicht irgendwie beibringen, diese eine Kombi zu akzeptieren?
    - LanX-
      
      2009-08-27 13:48
      
      User since
      2008-07-15
      1000 Artikel
      BenutzerIn
      
      was spricht gegen coderefs?
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      $subref=sub {bla ...}; # anonymes sub refrenzieren #derefrenzieren $subref->() ; #aufruf &$subref() ;# auch aufruf
      
      (ungetestet)
      
      Es gibt sehr wenige Fälle wo etwas nur symbolisch leisten kann, dass nicht über Referenzen lösbar ist.
      me and my writeups
    - pq
      
      2009-08-27 13:54
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      Guest Coder
      Egal wie, die sub-aufrufe muss ich auf jeden fall ändern, oder?
      
      ja.
      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

View all threads created 2009-08-27 13:02.