¿Cómo puedo ENVIAR una solicitud HTTP multiparte de Perl a Java y obtener una respuesta?

Question

Estoy tratando de publicar desde una de mis subrutinas en Perl una solicitud a un controlador basado en Java. Pero no recibo ningún tipo de respuesta. Sé que el código de Java funciona archivo porque puedo obtener una respuesta si lo publico desde un formulario HTML.

Este es mi código Perl:

use HTTP::Request::Common; 
    my $ua = LWP::UserAgent->new; 

    my $response = $ua->request(POST 'http://testserver/testing.nc', 
     Content_Type => 'form-data', 
     Content => [ 
      method => 'submit', 
      ftp_server => 'ftp.localhost', 
      ftp_user => 'testuser', 
      ftp_password => 'testpass', 
      remote_path => '/home/files', 
      port => 22, 
      file_to_upload => ["$file"] 
    ]); 

¿Hay algo malo con este código?

Answer 1

Datos publicados must be of type multipart/form-data.

Editar: OK, por lo que resulta, especificando form-data es suficiente como se menciona en los HTTP::Request::Common docs:

El método POST también es compatible con el contenido multipart/form-data utilizado para Form-based carga de archivos como se especifica en RFC 1867. Activa este formato de contenido especificando un tipo de contenido de form-data como uno de los encabezados de solicitud.

Sin embargo, para utilizar HTTP::Request::Common::POST la forma en que está utilizando, tendrá que importar POST:

use HTTP::Request::Common qw(POST); 

o utilizar $ua->post:

El método de LWP::UserAgentpost(...) existe como un atajo para $ua->request(POST ...).

Puede hacer su vida más fácil usando WWW::Mechanize. Vea también this upload example.