Changeset 58 in lab

Timestamp:

Oct 4, 2010 5:03:42 PM (14 years ago)

Author:

mitty

Message:

• get user's timeline
  • usage: user_timeline.pl screen_name [number_of_pages|all [dump]]

File:

• trunk/twitter/user_timeline.pl (copied) (copied from trunk/twitter/show_status.pl) (2 diffs)

trunk/twitter/user_timeline.pl

@@ -13 +13 @@
 use FindBin qw($Bin);
 use YAML::Tiny;
+use Data::Dumper;
+use Encode;
+
+if (@ARGV < 1) {
+    die "usage: $0 screen_name [number_of_pages|all [dump]]\n";
+}
+my $screen_name = $ARGV[0];
+my $pages = $ARGV[1] || 1;
+if ($pages eq 'all') {
+    $pages = -1;
+}
+my $dump = $ARGV[2] || 0;
 
 my $conf = loadconf("$Bin/config.yml");
@@ -26 +38 @@
 
 eval {
-    foreach my $id (@ARGV) {
-        my $res = $bot->show_status($id);
-        use Data::Dumper;
-        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";
+    my $page = 0;
+    while ($pages - $page && $page <= 160) {
+        $page++;
+        my $res = $bot->user_timeline(
+            {
+                screen_name => $screen_name,
+                page        => $page,
+            }
+        );
+        
+        if ($dump) {
+            foreach my $line (split /\n/, Dumper $res) {
+                if ($line =~ /undef/) { next; }
+                print $line, "\n";
+            }
+        }
+        else {
+            foreach my $status (@{$res}) {
+                my $text = "";
+                $text .= $status->{user}{name};
+                $text .= " [" . $status->{created_at} . "]";
+                $text .= " (". $status->{id} . ")";
+                $text .= " ". encode('utf8', $status->{text});
+                $text =~ s/\n//;
+                print $text, "\n";
+            }
         }
     }