{{{
(status_id) screen_name [created_at] text
}}}
* created_at => UTC
git-svn-id: https://lab.mitty.jp/svn/lab/trunk@100
7d2118f6-f56c-43e7-95a2-
4bb3031d96e7
else {
foreach my $status (@{$res}) {
my $text = "";
else {
foreach my $status (@{$res}) {
my $text = "";
+ $text .= "(". $status->{id} . ") ";
$text .= $status->{user}{name};
$text .= " [" . $status->{created_at} . "]";
$text .= $status->{user}{name};
$text .= " [" . $status->{created_at} . "]";
- $text .= " (". $status->{id} . ")";
$text .= " ". $status->{text};
$text =~ s/\n//;
print encode('utf8', $text), "\n";
$text .= " ". $status->{text};
$text =~ s/\n//;
print encode('utf8', $text), "\n";