Changeset 33e956f in lab.git

Timestamp:

Sep 13, 2010 9:32:55 PM (14 years ago)

Author:

mitty <mitty@…>

Branches:

twitter-0.1, twitter-0.1@65, twitter-0.1@66

Children:

abaa39c

Parents:

5f2d507

Message:

• skip unimportant elements from the Dump

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

File:

• show_status.pl (modified) (1 diff)

show_status.pl

@@ -29 +29 @@
         my $res = $bot->show_status($id);
         use Data::Dumper;
-        print Dumper $res;
+        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; }
+            print $line, "\n";
+        }
     }
 };