Changeset fe75883 in lab.git for Dev/twitter/dump_timeline.pl

Timestamp:

Dec 19, 2010 12:11:03 AM (14 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

294a3aa

Parents:

f1b126a

Message:

• pack usage message to $help = sub {...}
• remove needless '\n' and "done\n"

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

File:

• Dev/twitter/dump_timeline.pl (modified) (6 diffs)

Dev/twitter/dump_timeline.pl

@@ -16 +16 @@
 use Encode;
 
-if ($ARGV[0] && ($ARGV[0] eq '--help' || $ARGV[0] eq '-h') ) {
+my $help = sub {
     die <<EOM;
 usage: $0
@@ -27 +27 @@
     ]
 EOM
+};
+if ($ARGV[0] && ($ARGV[0] eq '--help' || $ARGV[0] eq '-h') ) {
+    &{$help};
 }
+
 my $method = $ARGV[0] || 'user_timeline';
 my $screen_name = $ARGV[1] || '';
@@ -38 +42 @@
 my $conf = loadconf("$Bin/config.yml");
 if (! defined $conf) {
-    die "$0: cannot parse config file.\n";
+    die "$0: cannot parse config file.";
 }
 
 my $bot = login($conf);
 if (! $bot->authorized) {
-    die "$0: this client is not yet authorized.\n";
+    die "$0: this client is not yet authorized.";
 }
 
@@ -68 +72 @@
         }
         else {
-            die "$0: unknown method => $method\n";
+            warn "$0: unknown method '$method'";
+            &{$help};
         }
         
@@ -93 +98 @@
     evalrescue($@);
 }
-print "done\n";
 
 
@@ -106 +110 @@
     
     if ($!) {
-        warn "$0: '$file' $!\n";
+        warn "$0: '$file' $!";
     }