twitbot.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use YAML::Tiny;
   6 use Net::Twitter;
   7
   8 my $config = (YAML::Tiny->read('config.yml'))->[0];
   9 my $twit = Net::Twitter->new(username => $config->{'username'}, password => $config->{'password'});
  10
  11 $twit->update('Perl から Twiitter を更新するテストですよー');