source: lab.git/twitter/twitbot.pl @ d200f4d

vendor
Last change on this file since d200f4d was d200f4d, checked in by mitty <mitty@…>, 14 years ago

git-svn-id: https://lab.mitty.jp/svn/lab/vendor@44 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

  • Property mode set to 100755
File size: 307 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use YAML::Tiny;
6use Net::Twitter;
7
8my $config = (YAML::Tiny->read('config.yml'))->[0];
9my $twit = Net::Twitter->new(username => $config->{'username'}, password => $config->{'password'});
10
11$twit->update('Perl から Twiitter を更新するテストですよー');
Note: See TracBrowser for help on using the repository browser.