Foro - Perl en Español

por **danimera** » 2011-01-31 10:44 @489

No sé si me haga entender. Lo que deseo es hacer un robot que llena un formulario que está en una página X, pero esta página tiene un campo formulario que me pide una imagen, y yo tengo la imagen en el servidor donde está el script...

¿Existe alguna forma de hacer esto mediante Perl... con WWW::Mechanize no vi una forma clara de hacerlo...

my $mech = new WWW::Mechanize(
    autocheck => 1 # If set to 1, WWW::Mechanize will produce its
                                   # own error messages.
);
 
# For more information on how $file works, please check out
# see http://search.cpan.org/perldoc?HTTP::Request::Common#POST
my $file = [
    'filename-on-disk.txt', # The file you'd like to upload.
    'filename-for-upload.txt', # The filename you'd like to give the web server.
    'Content-type' => 'text/plain' # Any other flags you'd like to add go here.
];
 
$mech->post("http://example.com/upload.cgi", [
    'upload' => $file
]);
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

2.- Usando el propio objeto WWW::Mechanize

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

           use WWW::Mechanize;
           my $mech = WWW::Mechanize->new();
 
           $mech->get( $url );
 
           $mech->submit_form(
               form_number => 1,
               fields      => {
                   image    => '/home/mantovani/foo.png',
                   description    => 'this is an example',
               }
           ); 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es decir, lo de siempre: dar la ruta completa al fichero.

por **danimera** » 2011-01-31 15:06 @671

Gracias, explorer... había buscado mal ya que había visto algo parecido así pero no en Perl...
Ahora que veo esto con el Mechanize es mejor porque es el módulo que estoy usando.

Foro - Perl en Español

Cómo enviar una imagen desde Perl a otro script

Cómo enviar una imagen desde Perl a otro script

Publicidad

Re: Cómo enviar una imagen desde Perl a otro script

Re: Cómo enviar una imagen desde Perl a otro script

¿Quién está conectado?