Subroutinen überschreiben (Allgemeines zu Perl)

[thread]16927[/thread]

Subroutinen überschreiben

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
Kean

2011-11-18 15:23

User since
2004-08-18
464 Artikel
BenutzerIn

Ich habe ein Programm mit vielen Subroutinen. Dieses Programm ist quasi der Standardcode. Und dieses Programm läuft auf mehreren Rechnern.

Einzelne Rechner benötigen leichte Modifikationen einzelner Subroutinen. Jetzt will ich nicht für jeden Rechner der abweichende Anforderungen hat ein eigenes Script pflegen, sondern den Standardcode mit einem Modul das die Abweichungen beinhaltet ergänzen.

Gibt es also eine Möglichkeit Subroutinen in einem externen Package zu definieren und diese dann so in das Standardscript einzubauen, dass Subs im Standardscript überschrieben werden?
- +3 replies
- pq
  
  2011-11-18 15:49
  User since
  2003-08-04
  12209 Artikel
  Admin1
  ja, man kann subroutinen überschreiben.
  idealerweise muss man das nicht und kann es z.b. mittels objektorientierung lösen, aber wenn du keine wahl hast, dann so (am beispiel der param()-methode von CGI):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  no warnings "redefine"; # entweder *CGI::param = sub { ... }; # oder sub CGI::param { ... }
  
  ersteres ist flexibler, weil es eine anweisung ist, die du überall machen kannst, und wenn du willst, auch mit variablem subnamen (dann musst du aber strict ausschalten).
  zweiteres ist wie eine ganz normale subroutinendefinition in einem package und wird zur compilezeit ausgeführt.
  Last edited: 2011-11-18 15:50:39 +0100 (CET)
  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
  - +2 replies
  - Kean
    
    2011-11-18 16:53
    User since
    2004-08-18
    464 Artikel
    BenutzerIn
    
    Also wäre dass dann in meinem Fall
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    package Modifikationen; no warnings "redefine"; sub main::funktion1 { ... }
    
    Das ganze in die Datei Modifikationen.pm im gleichen Ordner speichern und im Hauptscript
    
    Code (perl): (dl )
    
    use Modifikationen;
    
    einsetzen.
    
    Ist es dann relevant wo ich das use einfüge? Muss das nach dem deklarieren des original Sub erfolgen?
    - pq
      
      2011-11-18 17:22
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      ja, das muss danach erfolgen.
      sonst hast du den umgekehrten effekt, dass das original deine modifikation überschreibt.
      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
- rosti
  
  2011-11-18 18:08
  User since
  2011-03-19
  3751 Artikel
  BenutzerIn
  Alias-Funktionen:?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  use strict; use warnings; sub foo; # damit kann foo() ohne Klammern *foo = \&bar; foo "Dollar"; # Alles in bar und in Dollar!!! sub bar{ my $currency = shift; print "Alles in bar und in $currency!!!\n"; }
  
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit

View all threads created 2011-11-18 15:23.