¿Cómo descargo un archivo con WWW :: Mechanize después de enviar un formulario?

Question

que tienen el código:

#!/usr/bin/perl 
use strict; 
use WWW::Mechanize; 

my $url = 'http://divxsubtitles.net/page_subtitleinformation.php?ID=111292'; 
my $m = WWW::Mechanize->new(autocheck => 1); 
$m->get($url); 
$m->form_number(2); 
$m->click(); 
my $response = $m->res(); 
print $m->response->headers->as_string; 

Se somete el botón de descarga en la página, pero no estoy seguro de cómo descargar el archivo que se envía de vuelta después de la POST.

Estoy queriendo una forma de descargar esto con wget si es posible. Estaba pensando que su puede ser una URL secreta pasado o algo así? ¿O tendré que descargarlo con LWP directamente desde la secuencia de respuesta?

Entonces, ¿cómo descargo el archivo que está en ese encabezado?

Gracias,

Cody Goodman

Answer 1

Bueno lo que me quitó el más fue el "mechanize-> form_number" subrutina comienza en 1, mientras que los programas típicos comienzan su índice a 0. Si alguien quiere saber cómo cabeceras de respuesta descarga, o descargar el archivo adjunto del encabezado s, esta es la manera de hacerlo.

Ahora aquí está el código completo para hacer lo que yo quería.

#!/usr/bin/perl 
use strict; 
use WWW::Mechanize; 

my $url = 'http://divxsubtitles.net/page_subtitleinformation.php?ID=111292'; 
my $m = WWW::Mechanize->new(autocheck => 1); 
$m->get($url); 
$m->form_number(2); 
$m->click(); 
my $response = $m->res(); 
my $filename = $response->filename; 

if (! open (FOUT, ">$filename")) { 
    die("Could not create file: $!"); 
} 
print(FOUT $m->response->content()); 
close(FOUT); 

Answer 2

que intentó su código y devuelve una pila de HTML de los cuales los únicos http:// referencias fueron:

 
    http://www.w3c.org 
    http://ad.z5x.net 
    http://divxsubtitles.net 
    http://feeds2read.net 
    http://ad.z5x.net 
    http://www.google-analytics.com 
    http://cls.assoc-amazon.com 

utilizando el código

    my $content = $m->response->content(); 
    while ($content =~ m{(http://[^/\" \t\n\r]+)}g) { 
     print("$1\n"); 
    } 

Así que mis comentarios para usted es:
1. agregue use strict; a su código, está programando para el fracaso si no lo hace
2. Lea el HTML de salida y determine qué hacer a continuación, no lo ha hecho y, por lo tanto, ha hecho una pregunta incompleta. A menos que usted identifique la URL que desea descargar, le está pidiendo a otra persona que escriba un programa para usted.

Una vez que haya identificado la URL que desea descargar, es una simple cuestión de obtenerla y luego escribir el contenido de la respuesta en un archivo. p.ej.

if (! open(FOUT, ">output.bin")) { 
    die("Could not create file: $!"); 
} 
binmode(FOUT); # required for Windows 
print(FOUT $m->response->content()); 
close(FOUT); 

Answer 3

Después de enviar el formulario, puede utilizar:

$ nismo> save_content ($ archivo)

vuelca el contenido de $ nismo> contenido en $ archivo. $ filename será sobrescrito. Muere si hay algún error.

Si el tipo de contenido no comienza con "text /", entonces el contenido es guardado en modo binario.

Fuente: http://metacpan.org/pod/WWW::Mechanize