Come posso POST una richiesta HTTP con più parti da Perl a Java e ottenere una risposta?

Question

Sto provando a pubblicare da una delle mie subroutine in Perl una richiesta a un controller basato su Java. Ma non ricevo nessun tipo di risposta. Conosco il file di codice Java funziona perché posso ottenere una risposta se pubblico da un modulo HTML.

Questo è il mio codice 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"] 
    ]); 

C'è qualcosa di sbagliato in questo codice?

Answer 1

Dati inviati must be of type multipart/form-data.

Edit: OK, così si scopre, specificando form-data è sufficiente, come indicato nelle HTTP::Request::Common documentazione:

Il metodo POST supporta anche il contenuto multipart/form-data utilizzato per Form-based File Upload come specificato nella RFC 1867. Attivare questo formato di contenuto specificando un tipo di contenuto di form-data come una delle intestazioni di richiesta.

Tuttavia, per utilizzare HTTP::Request::Common::POST il modo in cui si sta utilizzando, è necessario importare POST:

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

o utilizzare $ua->post:

Il metodo di LWP::UserAgentpost(...) esiste come una scorciatoia per $ua->request(POST ...).

È possibile semplificare la vita utilizzando WWW::Mechanize. Vedi anche this upload example.