マイミクの最新日記を全表示して斜め読み
コバヤシマサヨシ2006.12.29.
Powered by
WWW::Mixi.
マイミクの最新日記を全表示して斜め読みする
以下に対象のmixiアカウントのログイン情報を入力してください
コード
#!/usr/bin/perl
use CGI;
use WWW::Mixi;
my $query = CGI->new;
my $mixi_email = $query->param('mail');
my $mixi_password = $query->param('pass');
#my $get_num = $query->param('num'); #未使用
#my $mixi_email = 'masayashi@gmail.com';
#my $mixi_password = 'num_ami';
# ログイン
my $mixi = WWW::Mixi->new($mixi_email, $mixi_password);
my $response = $mixi->login;
#新着日記を取得
my @items = $mixi->get_new_friend_diary();
#結果表示用HTMLのヘッダ
print "Content-type: text/html;charset=euc-jp\n\n";
print "<html><head>";
print '<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">';
print '<link rel="STYLESHEET" href="style.css" type="text/css">';
print '</head><body class="bgcolor01"><div align="center"><div class="work_main"><h1>全日記</h1><br /><br /><div style="margin-left:50px; margin-right:50px;"><dl>';
#以下で一人ずつループさせながら表示
foreach my $item (@items){
my ($subject, $link, $name, $time) = ($item->{'subject'}, $item->{'link'}, $item->{'name'}, $item->{'time'});
print "<hr>";
print "<dt><b>$name</b> $time<br /><a href='$link'>$subject</a></dt>";
print "<br />";
$diary = $mixi->get_view_diary($link);
print "<dd>$diary->{'description'}</dd>";
print "<br />\n";
}
#結果表示用HTMLのフッタ
print "</dl><br /></div></div></div></body></html>\n";
exit(0);