首页 文章

使用perl通过API在tumblr上发布本地映像文件

提问于
浏览 次
5

我一直在用perl搞乱tumblr API，并且已经有了几个功能 .

但是，我无法通过perl上传本 Map 像文件 .

这是我的代码适用于URL

use LWP::Authen::OAuth;
    use JSON;
    use Data::Dumper;
    use strict;
         my $ua = LWP::Authen::OAuth->new(
             oauth_consumer_key => 'xxx',
             oauth_consumer_secret => 'xxx',
             oauth_token => 'xxx',
             oauth_token_secret => 'xxx',
     );




    my $response;
    $response = $ua->post( 'http://api.tumblr.com/v2/blog/mytumblr.tumblr.com/post', [
         type    => 'photo',
         url    => 'http://www.example.com/mypic.jpg' ,
         caption => 'Test image 1',
     ]);


    if ($response->is_success) {
      print "it worked";
    }
    else {
     print "it did not work \n \n \n \n";
     print $response->as_string;
   }

但是，当我在post参数中替换"url"为"data"时（按照其API描述中的指示 - http://www.tumblr.com/docs/en/api/v2#posting），我不断收到来自tumblr的错误响应 . 我已经尝试了几种输入"data"参数的方法 - 作为文件的路径，作为二进制表示，作为URL编码的二进制表示，作为url编码的base64二进制表示，将其中一个值作为唯一元素粘贴在一个数组 - 我已经尝试了所有，每一个我从tumblr收到一条错误消息 .

那么，有人可以告诉我如何将本 Map 像文件上传到tumblr？

perl api tumblr

1 回答

  • 0

    我对tumblr API并不完全熟悉，但是谷歌快速搜索了这个例子：https://gist.github.com/derekg/1198576

    我会尝试

    $response = $ua->post( 'http://api.tumblr.com/v2/blog/mytumblr.tumblr.com/post', [
     type    => 'photo',
     'data[0]'    => $file_contents , ## LWP::Useragent should automatically urlencode this
     caption => 'Test image 1',
 ]);

    根据这个答案https://stackoverflow.com/a/177866/810448，"data[]"也可能在这种情况下起作用 .

    如果LWP :: Useragent尚未执行此操作，我还会考虑将“Content-type：application / x-www-form-urlencoded”添加到请求标头中 .

    回复于

相关问题