新浪微博API是通过OAuth方式的。perl上有现成的模块，只需要稍微调一下参数就行了。下午比较闲，试试看。。。一般网上说的，都还是Net::OAuth模块，这个是1.0a版本的，一看perldoc那个长篇就头疼。这里我用Net::OAuth2模块，简单方便，而且正好配合dancer框架，方便做外部网站应用。首先是安装模块： perlcpanm --mirror-only --mirror http://mirrors.163.com/cpan LWP::Protocol::https Net::OAuth2::Client 因为新浪微博的api用的是https协议，所以要加上LWP::Protocol::https模块，这样才能发起443请求。然后在web/lib/weibo.pm里里添加如下语句： ```perluse Net::OAuth2::Client; use JSON qw(decode_json); #只需要decode_json，因为dancer自己有from_json和to_json，不要覆盖了

get ‘/oauth’ => sub { #这个url是对外发布的地址，用来跳转到微博开放平台验证是否授权。 my $client = &test_client; redirect $client->authorize_url; };

get ‘/oauth/callback’ => sub { #这个url是授权返回地址，真正的应用入口。 my $client = &test_client; #这个code参数是前面的authorize_url授权验证后返回时带上的，使用这个code进行access token验证。 #所以无法直接访问/oauth/callback，必须通过/oauth访问。 my $access_token = $client->get_access_token(params->{code}); #access token验证通过后，真正的对api发起请求，列表见http://open.weibo.com/wiki/API文档_V2 #请求方法有get/post/delete等，见Net::OAuth2::AccessToken模块。 my $response = $access_token->get(‘/2/statuses/user_timeline.json’); if ( $response->is_success ) { my $data = decode_json $response->decoded_content; template ‘weibo’, { msgs => $data };

return $data->{‘statuses’}->[0]->{‘text’};

} else {
    return $response->status_line;
}; };

sub test_client { Net::OAuth2::Client->new( config->{app_key}, config->{app_secret}, user_agent => LWP::UserAgent->new(ssl_opts => {SSL_verify_mode => ‘0x01’}), site => ‘https://api.weibo.com’, authorize_path => ‘/oauth2/authorize’, access_token_path => ‘/oauth2/access_token’, access_token_method => ‘POST’, )->web_server( redirect_uri => uri_for(‘/oauth/callback’) #注意这个url需要去新浪授权，否则验证cb地址不匹配会报错的. ); };``` 然后在config.yml里定义好从新浪微博开放平台里申请应用给的key和secret就行了。

这里跟模块里提供的demo主要有几点不一样的地方：

第一个是test_client必须赋值给变量，不知道为啥demo里不用？第二个是Net::OAuth2::Client->new里，需要自己创建useragent，默认的useragent只是LWP::UserAgent->new，没有ssl_opts，这样会在callback的时候反馈ssl验证有问题。第三个是access_token_method，虽然新浪的开发文档上写的GET，但实际只能用POST。

最后，测试成功返回了json数据，~~但是还有两个问题：第一，直接return $data->{‘statuses’}->[0]->{‘text’};看到的是乱码，应该是content编码设置问题；~~ 第二，使用template如下： ```perl<% FOREACH status IN msgs.statuses %> when: <% status.created_at %>
text: <% status.text %>
from: <% status.source %>
user: <% status.user.name %>
city: <% status.user.location %>

<% END %>``` ~~但是访问页面http://chenlinux.com:8080/oauth后跳转到页面显示的居然还是HASH(0X1234)这样的地址。奇怪了。先记录一下，有空继续调……~~ 补充：第二个问题解决了，原因居然是config.yml里忘了用TT模版，simple模板不会for循环的…… 继续补充：第一个问题也解决了，原因是不能直接用from_json，而要用decode_json。效果如下：

用perl调用新浪微博API小实验

return $data->{‘statuses’}->[0]->{‘text’};