Changeset 1680a86 in lab.git for twitter/nt_bot.pl

Timestamp:

Sep 11, 2010 12:49:29 PM (14 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

d006afb

Parents:

c78c702

Message:

• delete old style client
• read configuration from YAML format file

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

File:

• twitter/nt_bot.pl (modified) (2 diffs)

twitter/nt_bot.pl

@@ -5 +5 @@
 use Net::Twitter;
 
-my $consumer_key = 'CONSUMER_KEY';
-my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
-my $access_token = 'ACCESS_TOKEN';
-my $access_token_secret = 'ACCESS_TOKEN_SECRET';
+use YAML::Tiny;
+my $config = (YAML::Tiny->read('config.yml'))->[0];
+
+my $consumer_key = $config->{'consumer_key'};
+my $consumer_key_secret = $config->{'consumer_key_secret'};
+my $access_token = $config->{'access_token'};
+my $access_token_secret = $config->{'access_token_secret'};
 
 my $nt = Net::Twitter->new(
@@ -18 +21 @@
 $nt->access_token_secret($access_token_secret);
 
-my $res = $nt->update({ status => "test tweet!" });
+my $res = $nt->update({ status => "Perl から Twiitter を更新するテストですよー" });