Question

我有一台运行Perl webservice的服务器。这个web服务生成一个~75mb .exe文件。

我希望发出POST请求，将此文件数据发送到另一个网络服务器。

现在我正在使用LWP::UserAgent：

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

# URL to post to
my $url = "http://my.website.here.com/upload";

# Location of local file
my $file_path = "/path/to/file.exe";

# Make the POST request
my $req = $ua->post(
    $url,
    [ Content_Type => 'form-data', 'file' => [$file_path] ]
);

但是，现在只发送文件名。我明白为什么会这样，但我在这里错过了什么？

非常感谢！

Answer 1

有关string name = null; foreach (var dealer in contact) { if (name != null) break; if (name == null) { foreach (var emp in dealer.employees) { if (emp.id == primarySalespersonId) { if (emp.personFirstName != null) name = emp.personFirstName; else name = "No Name"; break; } } }和->get的参数，请参阅HTTP::Request::Common。

->post

应该是

my $req = $ua->post($url,
    [ Content_Type => 'form-data', 'file' => [$file_path] ]
);

如何使用Perl发布本地文件？

1 个答案: