Есть скрипт-диспетчер, который обрабатывает передаваемые ему параметры и в зависимости от них запускает ту или иную процедуру. В запускаемую процедуру он передает какие-то параметры, когда процедура отработает (она должна возвращатькод возврата и желательно какую-то текстовую информацию), пишет в журнал результат выполнения этой процедуры.
Подскажите, как это должно осуществляться?
Сейчас у меня такой скелет для диспетчера (в $rsub имя скрипта-обработчика):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
$log = "handler $rsub";
if ($rsub && -e $rsub)
{
print "***1\n";
$ret = do($rsub $arg1 $arg2);
print "***2\n";
$val = $@||0;
print "***3\n";
$log .= (defined($ret) ? ", обработан" : ", ошибка обработки") . ", результат $val";
}
Не пойму, что должно быть в скрипте-обработчике.
Если в нем выполняется exit, то завершается и скрипт-диспетчер (в консоль выводится только ***1).
Если exit не указан, то после отработки обработчика управление возвращается к диспетчеру, но тогда непонятно, как получить код возврата.
________________________
Мы смотрим с оптимизмом...
...в оптический прицел.
