* 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 (executable)
--- 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};