■ TimelogAPI perlサンプル2 TimelogのAPI perlサンプル第2弾です。 ちょっと時間が取れず1週間経ってしまい今更感がありますが。 今回は、「自分とメモフレンドの発言を取得する」friends_msg.aspです。 1 #!/usr/bin/perl -w 2 use strict; 3 use Encode; 4 use LWP::UserAgent; 5 use XML::Simple qw(XMLin); 6 7 $ENV{TZ} = 'JST-9'; 8 my $u = 'hogehoge'; # ID 9 my $p = 'xxxxxxx'; # パスワード 10 my $c = 20; # 取得するメモ件数(MAX50) 11 my $t = 1; # 現在より$t時間前からのメモを取得 12 # 0以上が指定された場合、メモ件数はMAXの50件とす