Wie kann ich eine mehrteilige HTTP-Anfrage von Perl an Java senden und eine Antwort erhalten?

Question

Ich versuche, von einem meiner Subroutinen in Perl eine Anfrage an einen Java-basierten Controller zu senden. Aber ich bekomme keine Antwort zurück. Ich kenne die Java-Code-Arbeitsdatei, weil ich eine Antwort erhalten kann, wenn ich von einem HTML-Formular aus darauf poste.

Das ist mein Perl-Code:

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"] 
    ]); 

Gibt es etwas falsch mit diesem Code?

Answer 1

Veröffentlichte Daten must be of type multipart/form-data.

Edit: OK, es stellt sich heraus, form-data Angabe genügt, wie sie in den HTTP::Request::Common docs erwähnt:

Die POST-Methode unterstützt auch die multipart/form-data Inhalte für formularbasierte Datei-Upload verwendet, wie angegeben in RFC 1867. Sie lösen dieses Inhaltsformat aus, indem Sie als einen der Anforderungsheader den Inhaltstyp form-data angeben.

jedoch HTTP::Request::Common::POST die Art und Weise zu verwenden, die Sie verwenden, müssen Sie POST importieren:

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

oder verwenden $ua->post:

Die post(...) Methode von LWP::UserAgent als Verknüpfung existiert für $ua->request(POST ...).

Sie können Ihr Leben einfacher machen, indem Sie WWW::Mechanize verwenden. Siehe auch this upload example.