From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Sun, 1 May 2011 10:23:46 +0000 (+0000)
Subject:  * add screen_name output
X-Git-Url: http://lab.mitty.jp/git/?p=lab.git;a=commitdiff_plain;h=2b6eb0b7517775323e7bdd12100407ff63d1787c

 * add screen_name output

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

diff --git a/Dev/twitter/dump_timeline.pl b/Dev/twitter/dump_timeline.pl
index 95385e4..72f7881 100755
--- a/Dev/twitter/dump_timeline.pl
+++ b/Dev/twitter/dump_timeline.pl
@@ -85,6 +85,7 @@ eval {
             foreach my $status (@{$res}) {
                 my $text = "";
                 $text .= "(". $status->{id} . ") ";
+                $text .= $status->{user}{screen_name} . "|";
                 $text .= $status->{user}{name};
                 $text .= " [" . $status->{created_at} . "]";
                 $text .= " ".  $status->{text};