0 Пользователей и 1 Гость просматривают эту тему.
eval {#some code here};if ($@) {#error processing}
mike:perldoc evaleval {#some code here};if ($@) {#error processing}
$a = 0;eval { die "Invalid argument!\\n" unless $a; 1/$a}print $@ if $@;