WWW-JASRAC

http://search.cpan.org/dist/WWW-JASRAC/

某案件で使う機会がありそうだったので早速ハックしてみた（さっきCPANにあげたばかりなので、まだアップされてないかなぁ）

  use strict;

  my $jasrac = WWW::JASRAC->new(ie => 'euc-jp');

  foreach my $r ($jasrac->search(title => '桜')) {

     print $r->title, " by ", ($r->artists)[0], "\n";

  }

ページングに対応してないのと、一曲一曲の詳細情報を何もいかしてないのがネック。