projects
/
lab.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* output string contains numeric character references
[lab.git]
/
Dev
/
twitter
/
show_status.pl
diff --git
a/Dev/twitter/show_status.pl
b/Dev/twitter/show_status.pl
index
1c76079
..
ee45ace
100755
(executable)
--- a/
Dev/twitter/show_status.pl
+++ b/
Dev/twitter/show_status.pl
@@
-12,23
+12,34
@@
use utf8;
use Net::Twitter::Lite;
use Data::Dumper;
use Net::Twitter::Lite;
use Data::Dumper;
-my $bot = Net::Twitter::Lite->new;
+my $bot = Net::Twitter::Lite->new(
+ legacy_lists_api => 0,
+);
+
+my $dump;
+if (defined $ARGV[0] and $ARGV[0] eq "-d") {
+ $dump = shift @ARGV;
+}
eval {
foreach my $id (@ARGV) {
eval {
foreach my $id (@ARGV) {
+ $id =~ /\/?(\d+)$/;
+ $id = $1;
my $res = $bot->show_status($id);
foreach my $line (split /\n/, Dumper $res) {
if ($line =~ /undef/) { next; }
my $res = $bot->show_status($id);
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; }
+ if (! $dump) {
+ unless ($line =~ / => {/
+ || $line =~ / = /
+ || $line =~ /status/
+ || $line =~ /'text'/
+ || $line =~ /created/
+ || $line =~ /'id'/
+ || $line =~ /name/
+ || $line =~ / },/
+ || $line =~ / };/
+ ) { next; }
+ }
print $line, "\n";
}
}
print $line, "\n";
}
}
@@
-36,7
+47,6
@@
eval {
if ($@) {
evalrescue($@);
}
if ($@) {
evalrescue($@);
}
-print "truncated output done\n";
sub evalrescue {
sub evalrescue {