Invia file immagine locale su tumblr tramite API con perl

Question

Ho giocato con perl con l'API tumblr con perl e ho ottenuto diverse funzioni per funzionare.

Tuttavia, non riesco a caricare file immagine locali tramite perl.

Ecco il mio codice che funziona per gli 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; 
    } 

Tuttavia, quando ho sostituire "url" per "dati" nei parametri post (come indicato nella loro descrizione API qui - http://www.tumblr.com/docs/en/api/v2#posting), continuo a ricevere una risposta di errore da tumblr. Ho provato diversi modi di inserire il parametro "data" - come un percorso per il file, come rappresentazione binaria, come una rappresentazione binaria con codifica URL, come una rappresentazione binaria base64 con codifica url, bloccato uno di quei valori come un unico elemento in un array - ho provato tutti, e con ognuno di essi ho ricevuto un messaggio di errore da tumblr.

Quindi qualcuno può indicarmi come caricare un file di immagine locale su tumblr?

Answer 1

io non sono del tutto familiarità con l'API tumblr, ma un rapido googling mi ha trovato questo esempio: https://gist.github.com/derekg/1198576

vorrei provare

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

Secondo questa risposta https://stackoverflow.com/a/177866/810448, è possibile che "i dati [] "funzionerebbe anche in questa situazione.

Vorrei anche considerare di aggiungere "Content-type: application/x-www-form-urlencoded" alle intestazioni della richiesta, se LWP :: Useragent non lo sta già facendo.