perl - 用于通过 API 附加文件的 perl 的多部分实体不起作用

Question

我有以下代码并想使用 API 附加文件。此代码向我提供 URL，但未附加文件。

#!/usr/bin/perl

use LWP::UserAgent; 
$ua = LWP::UserAgent->new;
my $response = $ua->post(Content_Type => 'application/xml');
#$ua->agent("Mozilla 8.0 blah...");

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

my $request=(POST "http://Server/Test.jsp", 
Content =>[
        external => "false",
        Filedata => "C:/Location.jpg"
          ]);

#$request = $ua->request($request);
my $results=$ua->request($request);
$content = $request->content; 


print $content; 
exit;

Answer 1

好吧，首先您必须指定正确的内容类型。

my $request=(POST "http://Server/watson/api/bug/addAttachmentAPI.jsp", 
Content_Type => 'form-data',
Content =>[
        appGUID => "Test GUID",

其次，文件规范必须是可选标题字段/值对形式的数组引用[ $file, $name, ... ]（...如果不包含标题，则会猜测文件的内容类型）。

        Filedata => ["C:Test Location/Upload/APIs.jpg", 'APIs.jpg'],
  ]);

有关详细信息，请参阅HTTP::Request::Common。