Opublikuj plik obrazu lokalnego na tumblr za pośrednictwem interfejsu API z perlem

Question

Zwykle używam API tumblr z perl i mam do dyspozycji kilka funkcji.

Jednak nie mogę pobrać lokalnych plików graficznych do przesłania za pośrednictwem Perla.

Tu jest mój kod, który pracuje dla 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; 
    } 

Jednak, kiedy zastąpił „URL” do „danych” w parametrach pocztowych (zgodnie z instrukcją w opisie API tutaj - http://www.tumblr.com/docs/en/api/v2#posting), wciąż otrzymuję odpowiedź błędu z tumblr. Próbowałem kilku sposobów wprowadzania parametru "data" - jako ścieżki do pliku, jako binarnej reprezentacji, jako adresu URL zakodowanej reprezentacji binarnej, jako binarnej reprezentacji zakodowanej w url base64, zatrzymałem echa jednej z tych wartości jako jedynego elementu w tablicy - próbowałem wszystkich iz każdym otrzymuję komunikat o błędzie z powrotem z tumblr.

Czy ktoś może mi pokazać, jak załadować plik lokalnego obrazu do urządzenia tumblr?

Answer 1

Nie jestem zaznajomieni z API tumblr, ale szybkie googling znaleźć mi ten przykład: https://gist.github.com/derekg/1198576

chciałbym spróbować

$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', 
]); 

Według tej odpowiedzi https://stackoverflow.com/a/177866/810448, to możliwe, że „dane [] "działałoby również w tej sytuacji.

Chciałbym również rozważyć dodanie "Content-type: application/x-www-form-urlencoded" do nagłówków żądań, jeśli LWP :: Useragent już tego nie robi.