コマンドラインでTwitterの表示をするPerlスクリプト

Net::Twitter::Liteモジュールを使用してコマンドラインでTwitterの表示をするPerlスクリプトです。
準備

C:\work> ppm install YAML::Syck                (YAML::Syckモジュールをインストール)
C:\work> ppm install Net::Twitter::Lite        (Net::Twitter::Liteモジュールをインストール)

スクリプト(printw.pl)

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use YAML::Syck;
use Net::Twitter::Lite;
use Data::Dumper;

my $yaml = 'printw.yaml';
my $conf = YAML::Syck::LoadFile($yaml) or die qq{$yaml:$!\n};
my $nt = Net::Twitter::Lite->new(
    traits => [qw/API::REST/],
    username => $conf->{username},
    password => $conf->{password},
);
my $stats = $nt->friends_timeline({ count => 10 });
# print Dumper($stats);
for my $s (@$stats) {
    print $s->{user}->{screen_name};
    print "\n";
    print encode($conf->{encoding}, $s->{text});
    print "\n\n";
}

設定ファイル(printw.yaml)

username: your-name@example.com
password: xxxxxxxxxxxxxxxx
encoding: Shift_JIS

次のように実行すると、friendsのタイムラインを表示します。

C:\work> perl printw.pl

バッチファイルを作るには
次のようにするとprintw.batというバッチファイルが作られます。

C:\work> pl2bat printw.pl

こうしておけば、以下のようにして表示できます。

C:\work> printw