Modul: Methode und Subroutine mit dem gleichen Namen (Allgemeines zu Perl)

[thread]18904[/thread]

Modul: Methode und Subroutine mit dem gleichen Namen

Tags: perl5 Subroutinen module Methoden Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+4 replies
Kuerbis

2014-02-14 19:09
User since
2011-03-20
947 Artikel
BenutzerIn
Hallo!

Ich habe versucht Term::Choose nach OO umzuschreiben.
Dabei möchte ich den bisherigen Aufruf my $choice = choose( [1,2,3] ); beibehalten und die neue Methode auch choose nennen.
Das habe ich versucht (vereinfacht):
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

#!/usr/bin/env perl use warnings; use strict; use 5.10.0; my $new = Term_Choose->new(); say $new->choose( 1, 2 ); say Term_Choose::choose( 4, 6 ); package Term_Choose; sub new { my $class = shift; my $self = {}; return bless $self, $class; } sub choose { my $n = Term_Choose->new(); $n->choose( 1, 1, @_, 2, 2 ); } { no warnings 'redefine'; sub choose { my $self = shift; return @_; } } 1;
Ist sowas böse?
Und warum gibt say Term_Choose::choose( 4, 6 ); nur 6 zurück?
- Muffi
  
  2014-02-14 19:41
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Böse ist das nicht, aber funktionieren tuts auch nicht.
  Perl unterscheidet nicht zwischen funktion und methode.
  Du bügelst mit deiner 2. choose die 1. einfach über.
  
  Und dann passiert folgendes: Die 4 nimmt sich das shift und die 6 kommt wieder zurück.
  
  Was du willst: Testen, ob das self->isa Term_choose. Wenn ja: Aufruf als Methode, wenn nein: Aufruf als funktion
  1 + 1 = 10
- Raubtier
  
  2014-02-14 19:56
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  Deine erste sub wird nie aufgerufen. Pack da doch mal ein say "hallo" rein - das wirst du nie sehen.
  
  Mit $self = shift; bekommst du einmal die Referenz auf die Klasse, einmal eben die 4.
  
  Du könntest mit ref $self testen, ob es sich um Term_Choose handelt. Dann brauchst du auch keine 2 Funktionen mit demselben Namen.
  
  Edit: Muffi schreibt isa. Das ist vermutlich besser als mein "ref", muss dann aber in ein eval-Block, weil z.B. 4->isa nicht geht.
  Last edited: 2014-02-14 20:00:50 +0100 (CET)
- Kuerbis
  
  2014-02-14 20:37
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  Vielen Dank!
  
  Warum bekomme ich ohne eval{ ... } keine Fehlermeldung?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  sub choose { if ( ! $_[0]->isa( 'Term_Choose' ) ) { my $n = Term_Choose->new(); return $n->choose( @_ ); } my $self = shift; return @_; }

View all threads created 2014-02-14 19:09.