User since
2005-04-14
684
articles
BenutzerIn
Hallo
Gab es in Perl nicht eine Funktion, die prüft ob eine Funktion in einem Modul vorhanden ist?
Dann könnte ich mir das eval sparen.
TIA Kristian
User since
2003-11-28
3645
articles
ModeratorIn
Objektorientiert: $object->can("method").
Ansonsten: defined &Module::function
User since
2003-08-04
12209
articles
Admin1
[quote=ptk,09.12.2005, 01:15]Objektorientiert: $object->can("method").
Ansonsten: defined &Module::function[/quote]
oder:
packagename->can("function");
# z.b. main->can("function");
User since
2003-11-28
3645
articles
ModeratorIn
Auch hier wird OO zuschlagen. Das kann erwünscht sein oder auch nicht.
{
package A;
sub foo { }
}
{
package B;
use base qw(A);
}
warn B->can("foo");
User since
2003-08-04
5873
articles
ModeratorIn
das ist erwünscht (behaupte ich mal)
Denn ein B-Objekt "kann" foo. Denn foo wurde geerbt.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite