https://opennet.ru/openforum/vsluhforumID9/8963.html добрый день<br>на перле через use Socket парсю сайт через крон<br>если соединение обрывается, скрипт тупо виснет в ожиданиях чуда, а потом за ним запускается следующий скрипт (по крону), итого висит уже 2.. 3.. 10..<br>пробовал connect(SOCK,...)or die; но чё-то не хочет<br>как правильно его автоматически прибить?<br> https://opennet.ru/openforum/vsluhforumID9/8963.html#11 Thu, 30 Dec 2010 20:09:31 GMT &gt;&gt; LWP убог <br>&gt; А в чем именно?<br>&gt; Мне интересно ваше мнение.<br><br>по моим тестам тормознее подключения напрямую<br> https://opennet.ru/openforum/vsluhforumID9/8963.html#10 Thu, 30 Dec 2010 09:25:00 GMT &gt; добрый день <br>&gt; на перле через use Socket парсю сайт через крон <br>&gt; если соединение обрывается, скрипт тупо виснет в ожиданиях чуда, а потом за <br>&gt; ним запускается следующий скрипт (по крону), итого висит уже 2.. 3.. <br>&gt; 10..<br><br>в crontab<br><br>* 10 * * * root killall -9 perlscript.pl; sleep 5; /usr/local/perlscript.pl;<br> <br> https://opennet.ru/openforum/vsluhforumID9/8963.html#9 Thu, 30 Dec 2010 08:51:25 GMT &gt; LWP убог <br><br>А в чем именно?<br>Мне интересно ваше мнение.<br><br> https://opennet.ru/openforum/vsluhforumID9/8963.html#8 Wed, 15 Dec 2010 19:40:05 GMT спасибо, работает<br> https://opennet.ru/openforum/vsluhforumID9/8963.html#7 Wed, 15 Dec 2010 14:04:06 GMT Где-то вот так:<br><br>eval {<br> local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required<br> alarm $timeout;<br> ... ЗДЕСЬ ВСЯ РАБОТА С СОКЕТОМ: ОТКРЫТИЕ, ЧТЕНИЕ, ЗАКРЫТИЕ ... <br> alarm 0;<br>};<br>if ($@) {<br> die unless $@ eq "alarm\n"; # propagate unexpected errors<br> # timed out<br>}<br>else {<br> # didn't<br>}<br><br>&gt;[оверквотинг удален]<br>&gt; }; <br>&gt; if ($@) { <br>&gt; die unless $@ eq "alarm\n"; # propagate unexpected <br>&gt; errors <br>&gt; # timed out <br>&gt; } <br>&gt; else { <br>&gt; # didn't <br>&gt; } <br>&gt; а куда тут сам код программы вставлять?<br><br> https://opennet.ru/openforum/vsluhforumID9/8963.html#6 Tue, 14 Dec 2010 16:54:43 GMT &gt;[оверквотинг удален]<br>&gt; париться. а то на коннект тайм аут, на каждую операцию чтения. <br>&gt; а так раз и все.<br>&gt; eval { <br>&gt; local $SIG{ALRM} = sub { die "timeout\n" }; <br>&gt; alarm($timeout); #implement N second time out<br>&gt; work(); <br>&gt; alarm(0); <br>&gt; }; <br>&gt; if ( $@ ) { print "execute timed <br>&gt; out or error: $@\n" } <br><br>eval {<br> local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required<br> alarm $timeout;<br> $nread = sysread SOCKET, $buffer, $size;<br> alarm 0;<br>};<br>if ($@) {<br> die unless $@ eq "alarm\n"; # propagate unexpected errors<br> # timed out<br>}<br>else {<br> # didn't<br>}<br><br>а куда тут сам код программы вставлять?<br> https://opennet.ru/openforum/vsluhforumID9/8963.html#5 Tue, 14 Dec 2010 16:09:30 GMT &gt; вы уверены что разрыв соединения в действительности имеет место?<br>&gt; да и при использовании LWP::UserAgent тоже все корректно отрабатывается..<br>&gt; впрочем.. можно посмотреть как таймаут сделан тут: http://opennet.ru/base/dev/socket_timeout2.txt.html <br><br>там в любом месте может протокол "встать", поэтому вообще рекоменую на всю эту процедуру установить общий тайм аут. и больше о нем не париться. а то на коннект тайм аут, на каждую операцию чтения.<br><br>а так раз и все.<br><br> eval {<br> local $SIG{ALRM} = sub { die "timeout\n" };<br> alarm($timeout); #implement N second time out<br> work();<br> alarm(0);<br> };<br> if ( $@ ) { print "execute timed out or error: $@\n" }<br><br><br> https://opennet.ru/openforum/vsluhforumID9/8963.html#4 Tue, 14 Dec 2010 14:54:52 GMT &gt; конструкция <br>&gt; while ($newline=&lt;HTTPCMD&gt;){ <br>&gt; print"$newline\n"; <br>&gt; }; <br>&gt; корректно отрабатывает разрыв соединения <br>&gt; вы уверены что разрыв соединения в действительности имеет место?<br>&gt; да и при использовании LWP::UserAgent тоже все корректно отрабатывается..<br>&gt; впрочем.. можно посмотреть как таймаут сделан тут: http://opennet.ru/base/dev/socket_timeout2.txt.html <br><br>не отрабатывает.<br>разрыв соединения отлично наблюдается по кол-ву одновременно работающих скриптов<br>хотя скрипт успевает отработать ДО того, как следующий запустится<br>да я и руками пускал<br>LWP убог<br> https://opennet.ru/openforum/vsluhforumID9/8963.html#3 Tue, 14 Dec 2010 12:09:33 GMT &gt;&gt; Вероятно нужно включить обработку обрыва коннекта в тело получения сообщений а не <br>&gt;&gt; в начало этой процедуры.<br>&gt;&gt; Каким образом принимаются данные?<br>&gt; while(&lt;SOCK&gt;){} <br>&gt; $curtime=time(); # перед while <br>&gt; exit if(time() - $curtime &gt; 60); # внутри while <br>&gt; если прошла минута, выход. так штоле предлагаете?<br>&gt; поизящней нет?<br><br>конструкция<br>while ($newline=&lt;HTTPCMD&gt;){<br>print"$newline\n";<br>};<br><br>корректно отрабатывает разрыв соединения<br><br>вы уверены что разрыв соединения в действительности имеет место?<br><br>да и при использовании LWP::UserAgent тоже все корректно отрабатывается..<br>впрочем.. можно посмотреть как таймаут сделан тут: http://opennet.ru/base/dev/socket_timeout2.txt.html<br>