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