Comment traiter la réponse en tant que fichier sans utiliser l'option: content_file?

Question

code Exemple:

my $ua = LWP::UserAgent->new; 
my $response = $ua->get('http://example.com/file.zip'); 
if ($response->is_success) { 
    # get the filehandle for $response->content 
    # and process the data 
} 
else { die $response->status_line } 

Je dois ouvrir le contenu dans un fichier sans enregistrer avant au disque. Comment ferais-tu ceci?

Answer 1

Vous pouvez ouvrir un faux fichier qui pointe vers un scalaire. Si l'argument du fichier est une référence scalaire, Perl traitera le contenu du scalaire comme des données de fichier plutôt qu'un nom de fichier.

open my $fh, '<', $response->content_ref; 

while(<$fh>) { 
    # pretend it's a file 
} 

Answer 2

Pas tout à fait un fichier, mais voici une pertinente question SO: What is the easiest way in pure Perl to stream from another HTTP resource?