[Perl] Отчасти решил проблему при помощи fork. Теперь вопрос в обмене между процессами.12.07.05 12:25 Число просмотров: 2074 Автор: J'JF <Dmytro Volhushyn> Статус: Elderman
то есть в child-процессе я читаю из девайса, а в родительском отслеживаю время выполнения и прибиваю по таймауту, в случае подвисания. Ничего сложного в этом нет.
Но встал вопрос об обмене информацией между родительским процессом и его потомком. То есть Потомок считывает инфу и должен передать ее родителю. вопрос - как это сделать корректно?
Пробовал при помощи pipe. Все работает супер, однако только тогда, когда инфа есть. Если же child подвисает, то родитель замирает на ожидании инфы от потомка. То есть конструкция типа такой:
pipe(RX, TX);
if (!($pid = fork())) {
close RX;
{......} #тут получаем $some_info как результат чтения из порта
print TX $some_info;
close TX;
exit 0;
} else {
close TX;
chomp($line = <RX>);
close RX;
waitpid($pid,0);
}
---
И вот если чайлд зависает на получении данных из порта, то родитель так и будет висеть на
chomp($line = <RX>); и тогда получается, что все телодвижения бессмысленны, т.к. возникает deadlock.
Насколько я понимаю, нужно организовать какой-нить "асинхронный" обменный канал. Пока я выкрутился записью в файл, однако такой вариант лично мне не очень нравится.
Какие будут идеи по сабжу?
Имеем весьма распространенную ситуацию - нужно послать на com-порт команду и получить ответ. В том случае, если ответ не пришел за определенный промежуток времени - повторить цикл. Вопрос в том, как это реализовать?
Сейчас я пользуюсь примерно следующей схемой:
open (COM, '+</dev/cuaa0');
system ("stty -f /dev/cuaa0 2400");
print COM $command;
read COM, $answer, $an_length;
close COM;
так вот, бывает так, что девайс от порта отключили или же сам девайс "ушел в себя" и не отвечает. В этом случае скрипт затыкается на
read COM, $answer, $an_length; и никаких признаков жизни не подает - приходится его передергивать. Вопрос автоматизации процесса передергивания в принципе не сложен и решен, однако хотелось бы поступить красивее и реализовать защиту от вышеописанной ситуации прямо в скрипте. Однако, как подойти к решению этой проблемы - не знаю.
[Perl] Отчасти решил проблему при помощи fork. Теперь вопрос в обмене между процессами.12.07.05 12:25 Автор: J'JF <Dmytro Volhushyn> Статус: Elderman
то есть в child-процессе я читаю из девайса, а в родительском отслеживаю время выполнения и прибиваю по таймауту, в случае подвисания. Ничего сложного в этом нет.
Но встал вопрос об обмене информацией между родительским процессом и его потомком. То есть Потомок считывает инфу и должен передать ее родителю. вопрос - как это сделать корректно?
Пробовал при помощи pipe. Все работает супер, однако только тогда, когда инфа есть. Если же child подвисает, то родитель замирает на ожидании инфы от потомка. То есть конструкция типа такой:
pipe(RX, TX);
if (!($pid = fork())) {
close RX;
{......} #тут получаем $some_info как результат чтения из порта
print TX $some_info;
close TX;
exit 0;
} else {
close TX;
chomp($line = <RX>);
close RX;
waitpid($pid,0);
}
---
И вот если чайлд зависает на получении данных из порта, то родитель так и будет висеть на
chomp($line = <RX>); и тогда получается, что все телодвижения бессмысленны, т.к. возникает deadlock.
Насколько я понимаю, нужно организовать какой-нить "асинхронный" обменный канал. Пока я выкрутился записью в файл, однако такой вариант лично мне не очень нравится.
Какие будут идеи по сабжу?
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
