From 5f2d507d4b3d1a29fc4f068de357e39bef87aa17 Mon Sep 17 00:00:00 2001 From: mitty Date: Mon, 13 Sep 2010 12:30:51 +0000 Subject: [PATCH] * help script for Dump tweet information git-svn-id: https://lab.mitty.jp/svn/lab/trunk/twitter@50 7d2118f6-f56c-43e7-95a2-4bb3031d96e7 --- show_status.pl | 93 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 93 insertions(+) create mode 100755 show_status.pl diff --git a/show_status.pl b/show_status.pl new file mode 100755 index 0000000..887654a --- /dev/null +++ b/show_status.pl @@ -0,0 +1,93 @@ +#! /usr/bin/perl -w + +use strict; +use warnings; +use utf8; + +## IMPORTANT ## +# When Net::Twitter::Lite encounters a Twitter API error or a network error, +# it throws a Net::Twitter::Lite::Error object. +# You can catch and process these exceptions by using eval blocks and testing $@ +## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING +use Net::Twitter::Lite; +use FindBin qw($Bin); +use YAML::Tiny; + +my $conf = loadconf("$Bin/config.yml"); +if (! defined $conf) { + die "$0: cannot parse config file.\n"; +} + +my $bot = login($conf); +if (! $bot->authorized) { + die "$0: this client is not yet authorized.\n"; +} + + +eval { + foreach my $id (@ARGV) { + my $res = $bot->show_status($id); + use Data::Dumper; + print Dumper $res; + } +}; +if ($@) { + evalrescue($@); +} +print "done\n"; + + +sub loadconf { + # load configration data from yaml formatted file + # param => scalar string of filename + # ret => hash object of yaml data + + my $file = shift @_; + + my $yaml = YAML::Tiny->read($file); + + if ($!) { + warn "$0: '$file' $!\n"; + } + + return $yaml->[0]; +} + +sub login { + # make Net::Twitter::Lite object and login + # param => hash object of configration + # ret => Net::Twitter::Lite object + + my $conf = shift @_; + + my $bot = Net::Twitter::Lite->new( + consumer_key => $conf->{consumer_key}, + consumer_secret => $conf->{consumer_secret}, + ); + + $bot->access_token($conf->{access_token}); + $bot->access_token_secret($conf->{access_token_secret}); + + return $bot; +} + +sub evalrescue { + # output error message at eval error + + use Scalar::Util qw(blessed); + + if (blessed $@ && $@->isa('Net::Twitter::Lite::Error')) { + warn $@->error; + if ($@->twitter_error) { + my %twitter_error = %{$@->twitter_error}; + map { + $twitter_error{"$_ => "} = $twitter_error{$_} . "\n"; + delete $twitter_error{$_} + } keys %twitter_error; + warn join("", %twitter_error); + } + } + else { + warn $@; + } +} -- 1.7.9.5