Всем доброго времени суток!

Товарищи, помогите пожалуйста понять для чего нужен eval? Если можно приведите короткий пример с ним и поясните какую роль играет eval в нём.
У меня такое чувство что я здесь один задаю вопросы.
Заранее благодарен,
Денис

Цитата

У меня такое чувство что я здесь один задаю вопросы

Угу. Т.к. можно увидеть, что наиболее развитые подфорумы на этом форуме - по Дельфи и С.

Цитата

для чего нужен eval?

Ну вообщем, реально eval IMHO нужен только для работы с ошибками, т.е. выполняет роль блока

Код

try except end;

в Delphi.

Функция выполняет кусок кода, т.е. просто как-бы представляет собой отдельную процедуру.

Код

eval {  #А здесь твой код. Если во время выполнения этого кода  #произойдёт ошибка, то просто произойдёт выход  #из блока eval. Программа основная продолжит работу }

Сколь я понял, при помощи eval можно перхватывать ошибки в кусках кода.
НАпример в Perl Coocbook присутствует такой пример

Код

if(eval "require mod"){ Обработка ошибки}

Если я правельно понял, то eval даёт эфект наподобие функции warn, но для перехвата ошибки в блоке.

Eval часто бывает весьма полезен. Напр. прочитываем файл, содержащий строки типа
var = value
var2 = value2
while(<FILE>) {
chomp;
if (s/ *= */=/) {
my ($var,$value) = split(' *= *');
# Заполняем переменные значениями
eval ("\$$var = \'$value\'");
}
}
Без eval - было бы заморочно

Поднял тему и прошу korob2001 ответь на свой вопрос.
Добавлено @ 04:15
Поднял тему и прошу korob2001 ответь на свой вопрос.

Какая тема.
Поясню на примере. Допустим мы принимаем от пользователя числа и делим их, если пользователь попытается разделить первое число на 0, то программа просто завершится крахом. Например если выполнить такой код:

Код

#!/usr/bin/perl -w use strict; my $num1 = 10; my $num2 = 0; my $res = 0; $res = $num1 / $num2; print $res;

То он закончится такой ошибкой: Illegal division by zero at Untitled line 3., т.е. программа завершилась аварийно. Тепь давай перехватим ошибки при делении и выведем более понятное сообщение и продолжим выполнение программы, перепишем наш код так:

Код

#!/usr/bin/perl -w use strict; my $num1 = 10; my $num2 = 0; my $res = 0; eval { $res = $num1 / $num2 }; print $res;

Мы не получим ошибки этапа исполнения, но мы так и не обработали её, просто перехватили. Давай теперь попробуем вывести какое-нить сообщение и подолжим выполнение программы. Если eval перехватил ошибку этапа исполнения, то он сохраняет её в специальную переменную:
$@. Вот и проверим её.

Код

#!/usr/bin/perl -w use strict; my $num1 = 10; my $num2 = 0; my $res = 0; eval { $res = $num1 / $num2 }; $res = "Не могу выполнить деление\n" if $@; print $res;

В итоге мы получим наше сообщение об ошибке, которое будет присвоено переменной $res, в том случае если возникнет исключительная ситуация этапа исполнения. Если изменить значение переменной $num2 на допустимое число, то мы не получим нашего сообщения, а просто получим результат деления.

Всё это хорошо, но у eval есть ещё одна форма eval 'выражение', которая компилирует какой-либо участок кода на лету, на этапе исполнения и перехватует все исключительные ситуации, так же как и первая, но выполняется гораздо медленнее первой, так как она анализирует каждый раз синтаксис. Если кто-то знаком с такими языками как Java, C++, то наверняка знакомы с блоком try {}, eval в Perl выполняет те же функции.
Вот аналогичный код проверки деления на 0, только выполняется гораздо медленне:

Код

#!/usr/bin/perl -w use strict; my $num1 = 10; my $num2 = 0; my $res = 0; eval '$res = $num1 / $num2'; print "Не могу выполнить деление на 0\n" if $@; print $res;

На самом деле eval { }, это своего рода блок кода из которого можно выходить в любой момент, с помощью return, так же у этого блока своя область видимости как и у обычного блока, т.е. если испоьзовать лексические переменные, то они будут видны в этом блоке.
Впринципе это и есть блок.

Ну вот, вроде основное описал.

Удачи.

Это сообщение отредактировал(а) korob2001 - 6.6.2005, 20:10

• ее — показывает, что правый аргумент команды s/.../…/ — это строковое выражение, которое надо
вычислить и выполнить как фрагмент кода (через функцию eval). В качестве текста для подстановки
используется возвращаемое значение — возможно, после процесса интерполяции

• (?{код}) — условие (мнимый символ), которое всегда выполняется. Сводится к выполнению команд
Perl в фигурных скобках. Вы можете использовать эту конструкцию, только если в начале сценария
указана команда use re 'eval'. При последовательном соотнесении текста и шаблона, когда Perl доходит
до такой конструкции, выполняется указанный код. Если полного соответствия для оставшихся
элементов найти не удалось, то при возврате левее данной точки шаблона вычисления, проделанные с
локальными переменными, откатываются назад. (Условие является экспериментальным. В
документации, прилагаемой к Perl, можно найти довольно детальное рассмотрение (с примерами)
работы этого условия и возможных трудностей в случае его применения.)