[Cascavel-pm] LWP::Simple

Giuseppe Lopes giuseppe em giuseppelopes.com
Segunda Junho 4 06:59:25 PDT 2007


Só para complementar, li que por padrão o LWP::Simple possui um timeout 
padrão de 180 segundos, mas na prática acredito que esteja passando desse 
tempo.

Observei também que se usar LWP::UserAgent posso definir o timeout, alguém 
ja trabalhou com isso?

Giuseppe Lopes
----- Original Message ----- 
From: "Giuseppe Lopes" <giuseppe em giuseppelopes.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Monday, June 04, 2007 10:52 AM
Subject: [Cascavel-pm] LWP::Simple


Prezados,

Como configuro um 'timeout' para um get efetuado a uma URL?

Vou explicar o que ocorre, possuimos um script que executa uma URL
predefinida e armazenada em banco, o processo pai executa um Fork para
executar todas as URL's, só que tem URL que demoram muito tempo, prendendo o
processo, gostaria de definir um timeout, para tentar executar a URL em
tanto tempo ou encerrar o processo.

Segue sub montada para este processo.

use LWP::Simple;

sub startUrl {

    my ($id, $dom, $url) = @_;
    print "$dom > child->get($url)\n\n";
    our $result = get($url);
    print "$dom < child->return($url, ".length($result).")\n";

    my $dbP2Child = conectaP2();
    my $sql = "UPDATE agendamentoLista SET dataUltima = NOW(), bytesAnterior
= bytesUltima, bytesUltima = ".length($result)." WHERE id = ".$id;
    print "  SQL: $sql\n\n";
    my $ins = $dbP2Child->prepare($sql);
    $ins->execute;

    $ins->finish;
    $dbP2Child->disconnect();
}


Nunca trabalhei com fork e peguei esse script pronto para tentar otimizar.

Agradeço qualquer informação antecipadamente.

Giuseppe Lopes








_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


__________ Información de NOD32, revisión 2306 (20070604) __________

Este mensaje ha sido analizado con  NOD32 antivirus system
http://www.nod32.com




Mais detalhes sobre a lista de discussão Cascavel-pm