使用Web Services API和Perl将附件上载到Bugzilla

概述我正在尝试使用Bugzilla Webservices API自动上传错误的附件,但是当我从Bugzilla下载时,我正在上传的base64编码消息总是被破坏. http://www.bugzilla.org/docs/4.0/en/html/api/Bugzilla/WebService/Bug.html#add_attachment的API文档指定附件需要进行base64编码,因此我使用简单的 我正在尝试使用BUGzilla Webservices API自动上传错误的附件,但是当我从BUGzilla下载时,我正在上传的base64编码消息总是被破坏.

http://www.bugzilla.org/docs/4.0/en/html/api/Bugzilla/WebService/Bug.html#add_attachment的api文档指定附件需要进行base64编码,因此我使用简单的代码来读取本地png文件,使用MIME::Base64转换为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 report中建议剥离换行符,但关于BUG.add_attachment API调用的实现.

以前有人有这方面的经验吗？

谢谢！

解决方法

read (file,-s file);

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

Attempts to read LENGTH characters of data.

关键字是尝试：read()可以自由读取LEsstH字节.

如果你只想啜食file的内容,你可以使用：

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

总结

以上是内存溢出为你收集整理的使用Web Services API和Perl将附件上载到Bugzilla全部内容，希望文章能够帮你解决使用Web Services API和Perl将附件上载到Bugzilla所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。