Проверка существования функции

[DartSidius]

как можно проверить...есть функция?...с помощью eval?

[NeoNox]

можно. именно eval. примеры - поиск по форуму.

[DartSidius]

мало чё нашел...только на проверку модуля, но не помолго

if(eval(&sub)) {print "OK";}

не работает

[AnnA]

если вы хотите проверить - есть ли у объекта метод:

Код: [Выделить]

if ($obj->can("method_name")) { .... }

[ctax]

perl -e \'
eval {
&asd;
};
print $@ if $@;
\'

[xames]

Может не со всем по теме но кому нибудь пригодится:

print adad();
print asdfsddad();
print adffsdad();
print a13dfadfdg23();
print случайно_вызванная_но_не_определенная_функция();


sub AUTOLOAD
{
 print "$AUTOLOAD\\n";
 return "no function";
}