Perl |電報ボットとsendPhoto方法

Question

私は（WWWなし::電報:: BotAPI）純粋なperlの sendPhoto BotAPIメソッドの実装を助けが必要

私は問題なく送信シンプルテキスト

use LWP::UserAgent; 
use HTTP::Request::Common; 
use JSON::MaybeXS; 
.... 
.... 
    my $ua = LWP::UserAgent->new; 

    utf8::decode($message); 
    my $p = { 
      chat_id=>$groupid, 
      parse_mode=>'HTML', 
      text=>$message 
    }; 

    my $response = $ua->request(
     POST 'https://api.telegram.org/bot'.$token.'/sendMessage', 
     Content_Type => 'application/json', 
     Content   => JSON::MaybeXS::encode_json($p) 
     ); 
... 

しかしsendPhotoと

（ https://core.telegram.org/bots/api#sendphoto）私は問題がある。新しい画像をアップロードしたい場合は、どのJSONをサーバーに送信する必要がありますか？

chat_id=>$groupid, 
caption=>$message 
photo=> { ? binary blob here ? } 

Answer 1

私はミスを犯す）

ファイルアップロードのため、私はJSONを必要としません！

間違っている！

my $p = [ chat_id => $groupid, 
      caption => 'image caption', 
      photo => ["/tmp/pdf.png"] 
]; 

my $response = $ua->request(
POST 'https://api.telegram.org/bot'.$token.'/sendPhoto', 
Content_Type => 'form-data', 
Content   => $msg 
);