Perl question

[Max]

М.б. кто подскажет?

Как мне узнать, определена ли функция, скажем 'f' в текущем контексте, без попытки ее вызова?
т.е. имя сплавляется как переменная, хотелось бы получить ответ - есть такая функция или нет... спасибо.

Удачи!

sub mytst1 {

}

sub isDefined {
defined(*{$_[0]});
}

if (isDefined('mytst1')) {
print "mytst1 defined\n";
} else {
print "mytst1 is not defined\n";
}
if (isDefined('mytst2')) {
print "mytst2 defined\n";
} else {
print "mytst2 is not defined\n";
}


Результат выполнения:

C:\Perl\eg>perl example.pl
mytst1 defined
mytst2 is not defined

C:\Perl\eg>

[uncle_Pasha]

Результат выполнения:

C:\Perl\eg>perl example.pl
mytst1 defined
mytst2 is not defined

C:\Perl\eg>

Неужели Perl действительно только для писателей?
Это не пройдет, к примеру, с print, substr, etc,

Удачи!