Forum Webscript.Ru

Программирование => Perl => Тема начата: Evgeny от 24 Апреля 2003, 15:52:12

Название: try...catch
Отправлено: Evgeny от 24 Апреля 2003, 15:52:12

Привет всем!

Знает ли кто-нибудь, есть ли в Perl аналог С-ишного try-catch?

Спасибо.

Название: try...catch
Отправлено: mike от 24 Апреля 2003, 17:05:53

perldoc eval

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


eval {
#some code here
};

if ($@) {
#error processing
}


Название: try...catch
Отправлено: Evgeny от 24 Апреля 2003, 17:14:33

mike

Цитировать

mike:
perldoc eval


eval {
#some code here
};

if ($@) {
#error processing
}

А как throw реализуется?

Название: try...catch
Отправлено: mike от 24 Апреля 2003, 17:44:02

Через die, в доке это описано подробней:

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


$a = 0;

eval {
   die "Invalid argument!\\n" unless $a;
   1/$a
}

print $@ if $@;


Название: try...catch
Отправлено: Evgeny от 24 Апреля 2003, 18:23:19

mike, спасибо, работает.