Есть скрипт работающий с одним сервисом. Сервис тормозной и поэтому не всегда есть коннект, а если есть то бывает, что сколько не выставляй таймаут все равно не получается получить данные, пишет таймаут, а как сделать реконнект никак не дойдет до меня. Вот скрипт:
Так вот если коннект есть все нормально работает, если нет выводит ошибку соединения, подскажите как сделать реконнект.
Заранее спасибо!
Код:
#Изначальные данные
sub Geturl{
$browser = LWP::UserAgent->new;
$response = $browser->get( $url );
$get = $response->status_line;
die "Can't get $url -- ", $response->status_line
unless $response->is_success;
$html = $response->content;
}
# Обработка полученных данныхТак вот если коннект есть все нормально работает, если нет выводит ошибку соединения, подскажите как сделать реконнект.
Заранее спасибо!