#
# Сравните это с
# return "Form begins [cgi startmultipartform] form ends"
# Речь -то идет, естественно, именно о return а не о print.
# А смысл такой
# print <<EOF
# много-много HTML, перемежаемого вызовами функций
# EOF
#
В Перле тоже это есть, см. предыдущее мое сообщение...
#
# Например, в Tcl нет встроенного unless, но я могу написать
# proc unless {condition args} {
# eval if [list !$condition] $args
# }
# и получить конструкцию неотличимую по использованию от стандартного if.
это не + Tcl. в Паскале, например, тоже нет unless.
не думаю, что eval ускорит выполнение программы, легче if с ! написать.
# Благодаря этому в TclX есть такие симпатичные конструкции как
# for_recursive_glob file pattern {
# do_something with $file
# }
#
ну и чего такого? насколько я понял - обработка файлов, удовлетворяющих
паттерну? никогда про процедуру find в перле не слышали?
# И еще я обожаю писать процедуры нотификации об ошибке, которые
# по возвращении вызывают return из вызвавшей процедуры.
а если ошибка возникла на 666 рекурсивном вызове и повлияла на результат
предыдущих 665? что будет тогда?
# Осознайте насколько
# это отличается от
#
отличается...
#
# или eval {
# ....
# die
# ...
# }
die, warn, carp понятнее...
---------------------------------------
Greg Belenky
WebZavod (http://www.webzavod.ru) programmer
