source: lab.git/Dev/twitter/show_status.pl @ adaba09

trunk
Last change on this file since adaba09 was 43d739e, checked in by mitty <mitty@…>, 12 years ago
  • add legacy_lists_api => 0 to new()

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

  • Property mode set to 100755
File size: 1.8 KB
Line 
1#! /usr/bin/perl -w
2
3use strict;
4use warnings;
5use utf8;
6
7## IMPORTANT ##
8# When Net::Twitter::Lite encounters a Twitter API error or a network error,
9# it throws a Net::Twitter::Lite::Error object.
10# You can catch and process these exceptions by using eval blocks and testing $@
11## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING
12use Net::Twitter::Lite;
13use Data::Dumper;
14
15my $bot = Net::Twitter::Lite->new(
16    legacy_lists_api => 0,
17);
18
19my $dump;
20if (defined $ARGV[0] and $ARGV[0] eq "-d") {
21    $dump = shift @ARGV;
22}
23
24eval {
25    foreach my $id (@ARGV) {
26        $id =~ /\/?(\d+)$/;
27        $id = $1;
28        my $res = $bot->show_status($id);
29        foreach my $line (split /\n/, Dumper $res) {
30            if ($line =~ /undef/) { next; }
31            if (! $dump) {
32                unless ($line =~ / => {/
33                    ||  $line =~ / = /
34                    ||  $line =~ /status/
35                    ||  $line =~ /'text'/
36                    ||  $line =~ /created/
37                    ||  $line =~ /'id'/
38                    ||  $line =~ /name/
39                    ||  $line =~ / },/
40                    ||  $line =~ / };/
41                ) { next; }
42            }
43            print $line, "\n";
44        }
45    }
46};
47if ($@) {
48    evalrescue($@);
49}
50
51
52sub evalrescue {
53    # output error message at eval error
54   
55    use Scalar::Util qw(blessed);
56   
57    if (blessed $@ && $@->isa('Net::Twitter::Lite::Error')) {
58        warn $@->error;
59        if ($@->twitter_error) {
60            my %twitter_error = %{$@->twitter_error};
61            map {
62                $twitter_error{"$_ => "} = $twitter_error{$_} . "\n";
63                delete $twitter_error{$_}
64            } keys %twitter_error;
65            warn join("", %twitter_error);
66        }
67    }
68    else {
69        warn $@;
70    }
71}
Note: See TracBrowser for help on using the repository browser.