From 035465bb947e40f543c1af710a427e0671ee5a41 Mon Sep 17 00:00:00 2001
From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Mon, 13 Sep 2010 12:32:55 +0000
Subject: [PATCH]  * skip unimportant elements from the Dump

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@51 7d2118f6-f56c-43e7-95a2-4bb3031d96e7
---
 twitter/show_status.pl |   15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/twitter/show_status.pl b/twitter/show_status.pl
index 887654a..59658cb 100755
--- a/twitter/show_status.pl
+++ b/twitter/show_status.pl
@@ -28,7 +28,20 @@ eval {
     foreach my $id (@ARGV) {
         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";
+        }
     }
 };
 if ($@) {
-- 
1.7.9.5