Eine Frage der Ehre, Perls OOP und class UNIVERSAL (Allgemeines zu Perl)

[thread]21670[/thread]

Eine Frage der Ehre, Perls OOP und class UNIVERSAL

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+7 replies
rosti

2025-05-10 10:53
User since
2011-03-19
3747 Artikel
BenutzerIn
Nun, ich habe in einer meiner Klassen zwei Funktionen/Methoden:
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

sub IO::String::readon{ my $self = shift; # hier das FileHandle my $len = shift; my $offs = shift; $offs = defined $offs ? $offs : $self->tell; $self->seek($offs,0); $self->read(my $buffer, $len); return $buffer; } sub IO::File::readon{ my $self = shift; # hier das FileHandle my $len = shift; my $offs = shift; $offs = defined $offs ? $offs : $self->tell; $self->seek($offs,0); $self->read(my $buffer, $len); return $buffer; }
Die völlig identisch sind, also redundanter Code. Sie werden aufgerufen über ein Handle, was entwicklungsbedingt sowohl eine Instanz von IO::File als auch IO::String sein kann.

Um diese Code-Redundanz los zu werden, bin ich nun auf diesen Trichter gekommen:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

sub UNIVERSAL::readon{ my $self = shift; # hier das FileHandle my $len = shift; my $offs = shift; $offs = defined $offs ? $offs : $self->tell; $self->seek($offs,0); $self->read(my $buffer, $len); return $buffer; }
Mit dem Wissen, daß ja alle Perl-Klassen von UNIVERSAL erben und damit auch jede Methode die man auf diese Art und Weise der UNIVERSAL-Klasse unterjubeln kann im redundanten Code zu vermeiden.

Was sagt Ihr denn dazu?
https://www.rolfrost.de/

Forum zu Fragen unserer Zeit
- +3 replies
- lichtkind
  
  2025-05-10 17:18
  
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  
  Universal zu patchen find ich schon gewagt. Warum nicht eine gute alte Util Klasse/modul die beide rufen. Was du letztlich suchst ist eine Role und die kann man auf verschiedene Arten in Perl bekommen. CPAN ist auch voll von Role-Modulen aber ich mag keinen Overhead.
  Last edited: 2025-05-10 20:07:29 +0200 (CEST)
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
  - rosti
    
    2025-05-11 10:25
    
    User since
    2011-03-19
    3747 Artikel
    BenutzerIn
    
    Du hast Recht, UNIVERSAL zu patchen ist very unschön ;)
    https://www.rolfrost.de/
    
    Forum zu Fragen unserer Zeit
  - rosti
    
    2025-05-12 11:08
    User since
    2011-03-19
    3747 Artikel
    BenutzerIn
    
    Was natürlich auch geht:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    use strict; use warnings; use IO::File; use IO::String; push @IO::File::ISA, 'CommonHandle'; push @IO::String::ISA, 'CommonHandle'; my $fh = IO::File->new; my $sh = IO::String->new; $fh->readbuffer; $sh->readbuffer; sub CommonHandle::readbuffer{ my $self = shift; print ref $self, "\n"; }
    
    Aber noch besser wäre es, diese Methode zu einer Methode der eigenen Instanz zu machen, nämlich der Instanz welche das FileHandle kapselt.
    Last edited: 2025-05-12 12:58:27 +0200 (CEST)
    https://www.rolfrost.de/
    
    Forum zu Fragen unserer Zeit
- +3 replies
- barney
  
  2025-05-10 18:55
  User since
  2008-08-31
  227 Artikel
  BenutzerIn
  Warum nicht einfach:
  
  Code: (dl )
  
  1 2 3
  
  sub IO::File::readon{ return IO::String::readon(); }
  
  da muss man weder UNIVERSAL verschlimmbessern noch sich überlegen wie das mit den Symboltabellen funktioniert.
  - +2 replies
  - barney
    
    2025-05-10 21:48
    
    User since
    2008-08-31
    227 Artikel
    BenutzerIn
    
    Die Argumente müssen natürliche mit: return IO::String::readon(@_);
    - rosti
      
      2025-05-11 09:25
      
      User since
      2011-03-19
      3747 Artikel
      BenutzerIn
      
      Find' ich richtig gut. Viel besser als UNIVERSAL zu patchen (pfui)
      
      Schönen Sonntag, Grüße an Alle ;)
      https://www.rolfrost.de/
      
      Forum zu Fragen unserer Zeit

View all threads created 2025-05-10 10:53.