使用 Web 服务 API 和 Perl 将附件上传到 Bugzilla

Question

我正在尝试使用 Bugzilla Webservices API 自动上传错误附件，但是当我从 Bugzilla 下载它们时，我上传的 Base64 编码消息总是会损坏。

API 文档位于 http://www .bugzilla.org/docs/4.0/en/html/api/Bugzilla/WebService/Bug.html#add_attachment 指定附件需要进行base64编码，所以我使用一段简单的代码读取本地 png 文件，使用 MIME::Base64 并使用名为 BZ::Client 的 Bugzilla Perl 客户端 API 上传。

相关代码如下所示 -

my $client = BZ::Client->new("url" => $url,
                             "user" => $user,
                             "password" => $password);

            open (FILE, "$file") or die "$!";
            binmode FILE;
            read (FILE, $data, -s FILE);
            $base64_encoded_file = encode_base64($data);

            my %params = (
                ids => [ 1 ],
                data => $base64_encoded_file,
                file_name => 'filename.png',
                content_type => "image/png",
                summary => 'blah blah' );


            my $response = '';

            eval {
                $response = $client->api_call("Bug.add_attachment", \%params); # Needs to be hash ref
            } or do {
                print "ERROR: $@\n";        
            };

非常简单。我相信在后端 Web 服务 API 使用decode_base64，所以我很惊讶这不起作用。即使使用 Perl 生成的 base64 字符串直接测试 XMLRPC API 仍然会导致文件损坏。

我也尝试过按照错误报告中的建议删除换行符，但没有效果Bug.add_attachment API 调用的实现。

以前有人有过这样的经历吗？

谢谢！

Answer 1

read (FILE, $data, -s FILE);

这是错误的：引用自 perldoc -f read

Attempts to read LENGTH characters of data.

关键字是尝试：read() 可以自由读取少于 LENGTH 字节的数据。

如果你只是想读取 FILE 的内容，你可以使用：

$data = join("", <FILE>);