Fetch Text/Ereignis-Stream-Web-Antwort mit WWW :: Mechanize oder LWP :: UserAgent

Question

Ich verwende WWW::Mechanize, um eine Webseite mit einem Google Maps-Widget, das konstante Daten aus einer einzigen Antwort des Typs Text/Ereignis empfängt -Strom.

Diese Art von Antwort ist wie eine nie endende Antwort vom Server, die ständig aktualisierte Daten für das Widget zu arbeiten.

Ich versuche herauszufinden, wie man die genaue Antwort von Perl liest. Mit etwas wie:

my $mech = WWW::Mechanize->new; 

# Do some normal GET and POST requests to authenticate and set cookies for the session 

# Now try to get that text/event-stream response 

$mech->get('https://some.domain.com/event_stream_page'); 

Aber das funktioniert nicht, weil die Antwort nie endet.

Wie kann ich diese Anfrage machen und die Antwort lesen und jedes Mal, wenn der Server den Stream aktualisiert, etwas mit diesen Daten machen?

Answer 1

Einen Weg gefunden, dies zu tun. Mit Hilfe eines handler from LWP, von dem WWW::Mechanize inherits:

$mech->add_handler (
    'response_data', 
    sub { 
     my ($response, $ua, $h, $data) = @_; 
     # Your chunk of response is now in $data, do what you need 
     # If you plan on reading an infinite stream, it's a good idea to clean the response so it doesn't grow infinitely too! 
     $response->content(undef); 
     # Important to return a true value if you want to keep reading the response! 
     return 1; 
    }, 
);