Forum Webscript.Ru

Программирование => Perl => Тема начата: DartSidius от 16 Декабря 2006, 05:59:41

Название: Проверка существования функции
Отправлено: DartSidius от 16 Декабря 2006, 05:59:41

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

Название: Проверка существования функции
Отправлено: NeoNox от 17 Декабря 2006, 01:06:46

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

Название: Проверка существования функции
Отправлено: DartSidius от 17 Декабря 2006, 15:25:58

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

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

не работает

Название: Проверка существования функции
Отправлено: AnnA от 17 Декабря 2006, 16:15:46

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

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

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

Название: Проверка существования функции
Отправлено: ctax от 18 Декабря 2006, 09:22:54

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

Название: Проверка существования функции
Отправлено: xames от 20 Декабря 2006, 20:32:31

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

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


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