Überschreiben einer Funktion (gelöst) (Allgemeines zu Perl)

[thread]19796[/thread]

Überschreiben einer Funktion [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+14 replies
Kuerbis

2015-09-10 13:56
User since
2011-03-20
947 Artikel
BenutzerIn
Hallo, kann man das so machen (Überschreiben einer Funktion), oder ist so etwas eher nicht gut oder unschön?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

package Term::Choose_HAE; use warnings; use strict; use Unicode::GCString; use parent 'Term::Choose'; BEGIN { no warnings 'redefine'; *Term::Choose::_print_columns = sub { # als Funktion im "parent", weil es schnell sein soll. ( my $str = $_[0] ) =~ s/\e\[[\d;]*m//msg; Unicode::GCString->new( $str )->columns(); }; } # ... # ...
- +2 replies
- Muffi
  
  2015-09-10 15:52
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Eher Unschön.
  
  Warum muss sie denn ersetzt werden?
  1 + 1 = 10
  - Kuerbis
    
    2015-09-10 16:33
    
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Hier soll sie etwas anderes tun, als in der "parant"-Klasse.
- +4 replies
- Linuxer
  
  2015-09-10 16:53
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Ich finde es sehr arg, wenn fremde private Methoden (hier: _print_column in einem anderen Namensraum) einfach überschrieben werden sollen...
  
  Warum nicht im eigenen Namensraum die Methode selber definieren? Sollte die dann nicht sowieso zuerst gefunden werden, bevor die Methode in den parent-Klassen gesucht wird?
  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!
  - +3 replies
  - Kuerbis
    
    2015-09-10 18:31
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Wenn ich es so mache, dann hat das z.B. keine Auswirkung a __choose, angenommen __choose verwendet die Funktion _print_columns.
    
    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 26 27 28 29 30 31
    
    package Term::Choose_HAE; use warnings; use strict; use 5.010001; our $VERSION = '0.005'; use Exporter 'import'; our @EXPORT_OK = qw( choose ); use Unicode::GCString; use parent 'Term::Choose'; sub _print_columns { ( my $str = $_[0] ) =~ s/\e\[[\d;]*m//msg; Unicode::GCString->new( $str )->columns(); }; sub choose { if ( ref $_[0] ne 'Term::Choose_HAE' ) { return Term::Choose_HAE->new()->Term::Choose::__choose( @_ ); } my $self = shift; return $self->Term::Choose::__choose( @_ ); } 1; __END__
    - Linuxer
      
      2015-09-11 00:00
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      OK.
      
      Mir missfällt einfach der Gedanke, dass ein Modul Term::Choose_HAE einfach eine private Methode von Term::Choose überschreibt.
      
      Damit ist die alte Methode verloren. Jeglicher Aufruf der Methode ruft dann die neue Version der Methode auf.
      
      Wenn sichergestellt ist, dass wirklich nur die Methode verwendet werden soll, die Term::Choose_HAE erzwingt, dann mag es ja OK sein. Aber wenn irgendwo noch die alte Term::Choose-Methode verwendet werden soll, seh ich da Probleme; denn die ist ja nun überschrieben und nicht mehr verfügbar.
      
      Auch fürchte ich Probleme bei der späteren Wartung und Debugging. Man sucht Probleme der Term::Choose::_print_column, findet die Ursache aber nicht in Term::Choose. Da steht u.U. sogar ganz anderer Code. Den relevanten Code findet man dann in Term::Choose_HAE.
      Sagen wir mal so: Ich finde diesen Gedanken nicht sehr behaglich.
      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!
    - Muffi
      
      2015-09-11 09:08
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Quote
      angenommen __choose verwendet die Funktion _print_columns
      
      Falls das so aussieht klappt das wunderbar:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      sub __choose { my $self = shift; $self->_print_columns; }
      
      Aber um da wirklich Ratschläge zu geben müsst man wohl genauer wissen wie das alles zusammenhängt
      1 + 1 = 10
- +3 replies
- betterworld
  
  2015-09-10 18:25
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Sowas wird im allgemeinen als "monkey patching" bezeichnet. Kannst ja mal danach googlen; dann findest du einige Abhandlungen darüber, unter welchen Umständen es schön oder unschön ist.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +2 replies
  - Kuerbis
    
    2015-09-10 18:39
    
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Habe nichts für mich Eindeutiges rauslesen können. Oft steht das "monkey patching" zur Laufzeit geschieht - das wäre hier nicht der Fall.
    - betterworld
      
      2015-09-10 22:11
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      Hier stehen ein paar "Pitfalls": Monkey patching.
      
      Das mit "Laufzeit" sollte man nicht so eng sehen. Monkey patching gibt es in vielen dynamischen Sprachen, und Perl hat nur etwas spezielle Vorstellungen davon, wie man "run time" und "Kompilierzeit" aufteilt. Ich würde es monkey patching nennen, immer wenn es nach dem eigentlichen Laden des Moduls geschieht.
      
      Zum Beispiel die erste Pitfall aus Wikipedia würde mich stark stören:
      
      Quote
      if the product you have changed changes with a new release it may very well break your patch
      
      Und insbesondere mit dem "_" im Namen wird der Autor von dem Modul sich ziemlich wenig daran stören, dass er im nächsten Release Deinen Code kaputt macht, wenn er die Semantik in seinem Modul ändert.
      Last edited: 2015-09-10 22:14:40 +0200 (CEST)
      Lieblingsmodule: IPC::System::Simple, Path::Class
- jan
  
  2015-09-10 20:01
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  Warum überschreiben und nicht einfach einen Method modifier mit around und je nach gewünschtem Kontext das Original ausführen oder was anderes tun?
- betterworld
  
  2015-09-10 23:20
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Was mir übrigens gerade einfällt: Du brauchst den Typeglob und das BEGIN{} gar nicht. Folgender Code macht das gleiche:
  
  Code (perl): (dl )
  
  1 2 3
  
  sub Term::Choose::_print_columns { ... }
  
  (Ob der Stil dadurch besser wird, ist eine andere Frage)
  
  Wo das mit den "warnings" in dem Fall am besten platziert wäre, überlasse ich dir :)
  Last edited: 2015-09-10 23:22:10 +0200 (CEST)
  Lieblingsmodule: IPC::System::Simple, Path::Class
- Gast janus
  
  2015-09-11 15:00
  
  Also wenn du ne warnung redefine kriegst, macht du in sachen Vererbung was falsch. Methoden überschrieben ist stinknormal OOP Alltag.
  Last edited: 2015-09-11 16:09:56 +0200 (CEST)
- Kuerbis
  
  2015-09-11 17:03
  
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  
  Ja, werde eine Methode nehmen - Computer werden eh jedes Jahr schneller.
  Danke für die Beiträge.

View all threads created 2015-09-10 13:56.