Adinu

Setelah hilang sekian lama dari dunia per-blog-an, akhirnya hari ini kembali posting artikel. Sebenernya gak sengaja gara-gara dimintai bantuan untuk mengambil lirik lagu berbahasa Indonesia. Caranya sederhana, buka saja situs layanan database lirik seperti LyricWiki (www.LyricWiki.org), terus copy-paste teks nya. Masalahnya lirik yang mau diambil jumlahnya ratusan. Dijamin tangan kriting kalo copy-paste satu-satu.

Solusi paling gampang ya bikin program sendiri untuk mengambil lirik lagu dari penyedia layanan database lirik. LyricWiki menyediakan webservice untuk mengambil lirik berdasarkan nama artis dan judul lagu. Sayangnya LyricWiki tidak menyediakan layanan untuk mengambil semua lirik dari artis tertentu. So, kita perlu gabungkan dengan layanan lainnya. Audioscrobbler (http://www.audioscrobbler.net) menyediakan layanan untuk mengambil daftar lagu dari artis tertentu. Kesimpulannya, kita perlu mengawinkan layanan LyricWiki dan Audiocrobbler untuk mendapatkan lirik lagu berdasarkan artis.

Program dibuat menggunakan bahasa Perl. Mengapa? Karena telah tersedia modul-modul untuk fungsi-fungsi yang diperlukan. Modul yang diperlukan adalah :

1. WebService::Audioscrobbler
2. Lyrics::Fetcher::LyricWiki
   

Modul diatas dapat diinstall melalui CPAN. Untuk instalasi modul Perl melalui CPAN, silahkan buka  http://perl.about.com/od/packagesmodules/qt/perlcpan.htm. 

Logika program ini sederhana. Pertama, mengambil daftar judul lagu dari artis melalui webservice pada Audioscrobbler lalu mengambil liriknya pada LyricWiki melalui webservice juga. Selanjutnya, lirik akan disimpan dalam file teks dengan format NamaArtis-JudulLagu. Berikut ini contoh source code nya :

use WebService::Audioscrobbler;

use Lyrics::Fetcher::LyricWiki;

my $ws = WebService::Audioscrobbler->new;

my $artist  = $ws->artist(‘Padi’);

my @tracks = $artist->tracks;

for my $tracks (@tracks) {

        $lyric = Lyrics::Fetcher::LyricWiki->fetch($artist->name,$tracks->name);

        $filename = $artist->name.”-”.$tracks->name;

        open FILE,”>”,$filename or die $!;

        print FILE $lyric;

        close FILE;

}

Pustaka :

1. http://search.cpan.org/~bigpresh/Lyrics-Fetcher-LyricWiki/lib/Lyrics/Fetcher/LyricWiki.pm
2. http://search.cpan.org/~nilsonsfj/WebService-Audioscrobbler-0.07/lib/WebService/Audioscrobbler.pm
3. http://perl.about.com/od/packagesmodules/qt/perlcpan.htm
4. http://lyrics.wikia.com/LyricWiki:SOAP