検索条件
全1件
(1/1ページ)
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Twitter::API;
my $twitter = Twitter::API->new_with_traits(
traits => [qw/Migration ApiMethods RetryOnError/],
consumer_key => 'xxx',
consumer_secret => 'xxx',
access_token => 'xxx',
access_token_secret => 'xxx',
);
my $media = ['/nanka/tekitohna/filepath.png'];
my $ret = $twitter->upload_media($media);
$twitter->update('ツイートするテキスト', { media_ids => $ret->{media_id} });
ちなみに2022年現在、Net::Twitter::Lite からは画像をアップロードできませんでした。もう古いので、モダンな Twitter::API を使うのが良さそうです。