WWW::Mixiでサイドバーにコミュニティ一覧を表示

  #!/usr/bin/perl -w
  
  use strict;
  use lib qw(/path/to/perl/lib);
  use Jcode;
  use WWW::Mixi;
  
  my $mixi = WWW::Mixi->new('your_mixi_account', 'your_mixi_password');
  
  $mixi->login;
  
  my $res = $mixi->get('/list_community.pl?id=your_id');
  
  my @items = $mixi->parse_list_community();
  
  print "Content-Type: text/javascript\n\n";
  
  for my $item (@items) {
      my $link = $item->{link};
      my $subject = jcode($item->{subject})->utf8;
      $subject =~ s/'/\\'/g;
      print "document.write('<a href=\"$link\" target=\"_blank\">$subject</a><br />')\n";
  }
  
  1;

ただ、WWW::Mixi version 0.22のparse_list_community()メソッドでは、実際のコミュニティ一覧ページをパースできないようなので、下記のように修正。

  %diff ./Mixi.pm ./Mixi.pm.fixed
  632c632
  <                       my @images = ($image_part =~ /<td WIDTH=20% HEIGHT=100 src=http:\/\/img.mixi.jp\/img\/bg_line.gif>(.*?)<\/td>/gi);
  ---
  >                       my @images = ($image_part =~ /<td WIDTH=20% HEIGHT=100 background=http:\/\/img.mixi.jp\/img\/bg_line.gif>(.*?)<\/td>/gi);

しかし、アクセス毎にいちいちログインしてるので表示まで時間がかかるのが玉にキズです...

その後、バグ報告していたparse_list_community()メソッドの不具合が修正されました(1/29)。version 0.23ではコミュニティ一覧ページをパースできるようになっています。