X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=Dev%2Ftwitter%2Fshow_status.pl;h=ee45acea07e6f7c775df035214e5d0870b55ca25;hb=68d6d5b003efbd06a48bd9933929cbe463738ee2;hp=1c7607986773b7488bf9a5721e51ac9b56273c9a;hpb=8333ea00a9fe608c90c20af12ea0c51548f66f4e;p=lab.git

diff --git a/Dev/twitter/show_status.pl b/Dev/twitter/show_status.pl
index 1c76079..ee45ace 100755
--- a/Dev/twitter/show_status.pl
+++ b/Dev/twitter/show_status.pl
@@ -12,23 +12,34 @@ use utf8;
 use Net::Twitter::Lite;
 use Data::Dumper;
 
-my $bot = Net::Twitter::Lite->new;
+my $bot = Net::Twitter::Lite->new(
+    legacy_lists_api => 0,
+);
+
+my $dump;
+if (defined $ARGV[0] and $ARGV[0] eq "-d") {
+    $dump = shift @ARGV;
+}
 
 eval {
     foreach my $id (@ARGV) {
+        $id =~ /\/?(\d+)$/;
+        $id = $1;
         my $res = $bot->show_status($id);
         foreach my $line (split /\n/, Dumper $res) {
             if ($line =~ /undef/) { next; }
-            unless ($line =~ / => {/
-                ||  $line =~ / = /
-                ||  $line =~ /status/
-                ||  $line =~ /'text'/
-                ||  $line =~ /created/
-                ||  $line =~ /'id'/
-                ||  $line =~ /name/
-                ||  $line =~ / },/
-                ||  $line =~ / };/
-            ) { next; }
+            if (! $dump) {
+                unless ($line =~ / => {/
+                    ||  $line =~ / = /
+                    ||  $line =~ /status/
+                    ||  $line =~ /'text'/
+                    ||  $line =~ /created/
+                    ||  $line =~ /'id'/
+                    ||  $line =~ /name/
+                    ||  $line =~ / },/
+                    ||  $line =~ / };/
+                ) { next; }
+            }
             print $line, "\n";
         }
     }
@@ -36,7 +47,6 @@ eval {
 if ($@) {
     evalrescue($@);
 }
-print "truncated output done\n";
 
 
 sub evalrescue {