Исходное сообщение
"прибить perl-скрипт парсинга, если соединение оборвалось" Отправлено greenwar, 14-Дек-10 19:54
>[оверквотинг удален] > париться. а то на коннект тайм аут, на каждую операцию чтения. > а так раз и все. >    eval { >       local $SIG{ALRM} = sub { die "timeout\n" }; >       alarm($timeout); #implement N second time out >       work(); >       alarm(0); >     }; >     if ( $@ ) { print "execute timed > out or error: $@\n" } eval {     local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required     alarm $timeout;     $nread = sysread SOCKET, $buffer, $size;     alarm 0; }; if ($@) {     die unless $@ eq "alarm\n"; # propagate unexpected errors     # timed out } else {     # didn't } а куда тут сам код программы вставлять?

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>[оверквотинг удален] >> париться. а то на коннект тайм аут, на каждую операцию чтения. >> а так раз и все. >> eval { >> local $SIG{ALRM} = sub { die "timeout\n" }; >> alarm($timeout); #implement N second time out >> work(); >> alarm(0); >> }; >> if ( $@ ) { print "execute timed >> out or error: $@\n" } > eval { > local $SIG{ALRM} = sub { die "alarm\n" }; > # NB: \n required > alarm $timeout; > $nread = sysread SOCKET, $buffer, $size; > alarm 0; > }; > if ($@) { > die unless $@ eq "alarm\n"; # propagate unexpected > errors > # timed out > } > else { > # didn't > } > а куда тут сам код программы вставлять?
	Введите код, изображенный на картинке: