Changeset 679d34a in lab.git for Dev/twitter/show_status.pl

Timestamp:

Jan 12, 2011 8:08:41 PM (14 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

17f388e

Parents:

04f609d

Message:

• "-d" option to print all data except 'undef'

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

File:

• Dev/twitter/show_status.pl (modified) (2 diffs)

Dev/twitter/show_status.pl

@@ -15 +15 @@
 my $bot = Net::Twitter::Lite->new;
 
+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";
         }
@@ -37 +46 @@
     evalrescue($@);
 }
-print "truncated output done\n";