2

我有以下 Perl 脚本:

use strict;
use XML::RPC;
use Digest::MD5 qw(md5_hex);
use 5.010;

my ($username, $password)  = qw(foo bar);
my $xmlrpc = XML::RPC->new('http://www.livejournal.com/interface/xmlrpc', (output_encoding => 'UTF-8' ));
my $result = $xmlrpc->call( 'LJ.XMLRPC.getevents', { username => $username, hpassword => md5_hex($password), selecttype => "syncitems"} );

但是,服务器响应 207 错误:客户端错误:协议版本不匹配:无法使用非 Unicode 客户端显示/编辑 Unicode 帖子。请参阅http://www.livejournal.com/support/encodings.bml了解更多信息。

根据 API 规范,LJ 应该使用 UTF-8。所以我不明白我在做什么错。

4

1 回答 1

3

好的,我解决了。问题是我没有指定默认为0的可选参数(这就是为什么我没有首先注意到它),并且在数据包含非 ASCII 符号的情况下应该分配为1 。

于 2013-01-10T13:46:01.270 回答