小编use*_*985的帖子

如何使用Perl和仅LWP :: UserAgent更新我的Twitter状态?

我正在尝试通过Twitter API和OAuth更新我的状态.

我被困在最后一步,状态更新.这是我的代码.

标题:

$ua->default_header('Content-Type' => "application/x-www-form-urlencoded");
$ua->default_header('oauth_signature' => "$signature");
$ua->default_header('Authorization' => '"OAuth realm="Twitter API"');
$ua->default_header('oauth_consumer_key' => "blablabla");
$ua->default_header('oauth_nonce' => "$nonce");
$ua->default_header('oauth_signature_method' => "HMAC-SHA1");
$ua->default_header('oauth_timestamp' => "$epoch");
$ua->default_header('oauth_token' => "$token_final");
$ua->default_header('oauth_version' => "1.0");
Run Code Online (Sandbox Code Playgroud)

使用lwp useragent 发布到http://api.twitter.com/1/statuses/update.json的帖子:

'oauth_signature'=>"$signature",
'status'=>'Bientot',
'oauth_consumer_key'=>'blabla',
'oauth_signature_method'=>'HMAC-SHA1',
'oauth_nonce'=>"$nonce",
'oauth_timestamp'=>"$epoch",
'oauth_token'=>"$token_final",
'oauth_version'=>"1.0", 
Run Code Online (Sandbox Code Playgroud)

我得到了什么:

HTTP/1.1 401 Unauthorized
Cache-Control: no-cache, max-age=300
Connection: close
Date: Wed, 29 Sep 2010 14:36:48 GMT
Server: hi
Vary: Accept-Encoding
WWW-Authenticate: Basic realm="Twitter API"
Content-Length: 75
Content-Type: application/json; charset=utf-8
Expires: Wed, 29 Sep 2010 …
Run Code Online (Sandbox Code Playgroud)

twitter perl oauth lwp

2
推荐指数
1
解决办法
1037
查看次数

标签 统计

lwp ×1

oauth ×1

perl ×1

twitter ×1