2022/05/04(水)2022年にPerlで画像付きtweetするコード

#!/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 を使うのが良さそうです。