> > require 'uri'
> > require 'open-uri'
> > require 'nkf'
> > open("song.txt").read.each {|i|
> >   $KCODE = 'EUC'
> >   title = URI.escape(i.chomp)
> >   NKF.nkf("-s", open("http://m.search.music.yahoo.co.jp//bin/lyricssearch?cc=fs&cp=#{title}&cc=ss").read) \
> >     .scan(/music.yahoo.co.jp\/shop\/p\/53\/(.*?)\\"/)
> >   if $1 == nil
> >     next
> >   end
> >   dat = $1.split(/\//)
> >   print NKF.nkf("-s", open("http://music.yimg.jp/bin/sendlyricstext?ArtistId=#{dat[0]}&Id=#{dat[1]}").read) \
> >     .gsub(/LYRICS=<p align="center">/, '').gsub(/<.?b>/, '').gsub(/<br>/, "\n"), "\n\n"
> > }
> > song.txtってのに1行ずつ曲名を並べるんだ
> 短いのな(;´Д`)

すぐ書けたって言っただろ

参考：2007/09/15(土)16時12分11秒