如何将来自 Perl 的多部分 HTTP 请求 POST 到 Java 并获得响应？

Question

我正在尝试从 Perl 中的一个子例程向基于 Java 的控制器发出请求。 但我没有得到任何回复。我知道 Java 代码工作文件，因为如果我从 HTML 表单发布到它，我可以获得响应。

这是我的 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"]
  ]);

这段代码有问题吗？

Answer 1

发布的数据必须为multipart/form-类型数据。

编辑：好的，事实证明，指定form-data就足够了，正如HTTP::Request::Common 文档：

POST 方法还支持 RFC 1867 中指定的用于基于表单的文件上传的 multipart/form-data 内容。您可以通过指定 form 的内容类型来触发此内容格式-data 作为请求标头之一。

但是，要按照您使用的方式使用 HTTP::Request::Common::POST，您需要导入 POST:

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

或使用 $ua-> ;帖子：

LWP:: 的 post(...) 方法UserAgent 作为 $ua->request(POST ...) 的快捷方式存在。

使用 WWW::Mechanize 可以使您的生活更轻松。另请参阅此上传示例。