Virtuelle Methoden in Perl

tr0nix

tr0nix

der-mit-dem-tux-tanzt
Hallo zusammen

Wie mache ich virtuelle Methoden in Perl?

Ich habe in Klasse A eine Methode logText().
Wenn ich in Klasse B, welche sich (dank @ISA) aus Klasse A vererbt, eine Methode logText() verwende nutzen Klasse A - Methoden immernoch A::logText und nicht B::logText.

Hab gegoogelt aber nirgens was schlaues gefunden :o(.
 
wieso stellst du die frage eigtl in mehrern foren?

siehe forum.perl-community.de
 
Ist doch legitim.. solange es nicht im selben Forum ist. Ich brauchte eine schnelle Antwort da dieses Problem mich in meinem Vorhaben behinderte.
 
Verstehe ich Dich richtig, Du hast:
Code:
package A;
...
sub logText {
    print "A.logText\n";
}
und
Code:
package B;
use A;
@ISA = qw(A);

...
sub logText {
    print "B.logText\n";
}

und wenn Du jetzt:
Code:
my $b = B->new();
$b->logText();
ausführst, druckt das "A.logText" ? Bei mir erscheint dann wie erwartet "B.logText" ...

Heiko
 

Ähnliche Themen

sed in awk

ip6tables Problem

Verständnisfrage zu RegExps

[Perl] Perl OO Methodenaufruf in anderem Objekt

Nginx: Virtuellen Unterordner im SCRIPT_FILENAME entfernen.

Zurück
Oben