Linux Forum — [Perl] Fork + Tk

Re: [Perl] Fork + Tk

2012-01-26T07:59:59Z

АУУУУУУ!!!!!!!!!!!! Че никто не знает чтоли????????

Re: [Perl] Fork + Tk

2012-01-25T17:28:58Z

Пишу скрипт на perl, который пингует некоторое количество серверов и выводит результат в окно лога. главное окно рисует Tk, пингую каждый сервер при помощи модуля пинг. В процессе вылезло две проблемы:
1) при многократном вызове функции ping(Net::ping) выдается ошибка о невозможности создать объект
2) переменная, через которую вывожу данные в окно лог(Tk+окно текст). я её сделал shared. впихиваю данные в неё $LogText->insert('end', "server connect").При многократном вызове данной процедуры из функции, запущенной как fork вылетает ошибка о неправильно созданном дескрипторе.
Теперь вопрос, как корректно передать данные в родительский процесс из процесса fork ( в графическое окно). И как обстоят дела со стабильностью работы ping, если все нормально, то как им правильно пользоваться, я пишу $p->ping("192.168.0.2");

[Perl] Fork + Tk

2012-01-23T03:49:59Z

Такая проблема, пишу скрипт на perl с графическим интерфейсом, по нажатию кнопки выполняется функция, вывод которой в окошко для логов(тестовое окно в граф. интерфейсе) производится после окончания работы функции, а необходимо чтобы выводилось в течении работы. Так же обстоит дело и другими функциями. Грубо говоря весь интерфейс зависает до окончания работы функции.