Добрый день. 

есть многопоточный скрипт. грабер (LWP)
основаннный на реальных потоках

use threads;
use threads::shared;
use Thread::Queue;

который иногда умирает

как можно отследить -  почему?
везде понатыкал die (print );

но умирает поток. а все остальное несется. (в консоли дальше), ошибок не видно.
нужно чтобы если сработало какое то die, то останавливалось бы все приложение. (весь скрипт).
как это сделать?

пытался die (print ; exit;) -- не вышло.

что можно сделать?
спасибо.

Это сообщение отредактировал(а) burakov - 9.4.2013, 14:29

Самое простое - запускать все опасное в eval, ловить ошибку и выставлять глобальный флаг остановки. Разумеется он должен периодически проверяться во всех потоках.

про "глобальный флаг остановки" -- понял
про "проверять во всех потоках" -- понял

>>пускать все опасное в eval, 
Это более менее понятно


>>ловить ошибку
может пример какой есть?


и еще вопросик.
очевидно что проблемы мои начались, когда объем скриптов и их сложность стала более 1500 строк кода.
вероятно нужно прекращать писать "на коленке". хотя вроде все в классах, более менее я упорядочиваю. но все же. видно что то не так.

подскажите русско язычные книги про то как это все грамотно писать

работа с конфиг файлом // наверняка есть какие то готовые интересные решения, более грамотные, чем написал я сам

как правильно разбивать на части приложение (скрипт).
как это связывать между собой.
опять же работа с исключениями (ошибками)

то есть интересует какой то хелп., конкретный с примерами. 



спасибо.

Есть конечно. Вот тут: http://perldoc.perl.org/functions/eval.html.


Это вам надо уже общие концепции программирования учить, без связи с Перл. Паттерны, ООП и т.д.

Ну раз потоки, то хоть kill KILL => $$, хуже уже не сделает)

А может и сделает. Программисту виднее когда можно завершить работу потока без ущерба для системы. Так что флаг в расшаренной переменной - самое то.

Из блокирующего вызова он выйти всё равно не сможет, если там всё подвисло (вдруг). 

Теперь у вас все работает?
Мне когда-то на perlmonks сказали что лучше вообще не использовать потоки в perl 5, форки еще куда не шло.

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

по поводу отлова ошибок.
делаю exit;
в том месте, где ошибка предполагается. ну и принт. переменной, флага. или чего нибудь.
Таким образом скрипт останавливается, а я пытаюсь разобраться что там к чему.