ruby开发的批量下载音乐的脚本

换了新电脑，所以对音乐文件进行重新整理，找到一个下载速度很不错的站点  http://www.31tg.com
所以刚刚尝试用ruby写了个批量下载专辑音乐的脚本。分享下。
这样一个命令就可以得到一个专辑中的全部歌曲了。呵呵。

CODE:

#!/usr/bin/ruby

require 'net/http'
require 'fileutils'
require 'iconv'

#FileUtils.mkdir Iconv.iconv("UTF8", "GB2312", @specialname)
#
#

class GetValue   #用于获取两个指定字符串之间的内容
  def GetValue.getsmallvalue(all, tag_first, tag_end)
    fpos = all.index(tag_first)
    block = all[fpos, all.length - fpos]
    epos = block.index(tag_end)
    value = block[tag_first.length, epos - tag_first.length]
  end
end

class MusicPageList
  attr_reader :imgsrc, :downmusicurl, :specialname
  def initialize
    @imgsrc
    @specialname
    @targeturl = "www.31tg.com"
    @imgtag_first = "<td bgcolor=\"#FFFFFF\"><img src=\'"
    @imgtag_end = "\' width"
    @spectag_first = "<font color=\"#FF6600\"><strong>"
    @spectag_end = "</strong>"
    @listtag_first = "<input type=\"checkbox\" name=\"checked\" value=\""
    @listtag_end = "\">"
    @eachmusictag_first = "2.<a href="
    @eachmusictag_end = " target"
    @musiclist = Array.new
    @downmusicurl = Array.new
    @httpclient = Net::HTTP::new(@targeturl)
  end
  def start
    @resp, @data = @httpclient.get("/MusicCD/31TG_8593.htm")   #需要下载的CD页面地址,根据自己需要进行修改.
  end
  def sepvalue
    @imgsrc = GetValue.getsmallvalue(@data, @imgtag_first, @imgtag_end)
    @specialname = Iconv.iconv("UTF-8", "GB2312", GetValue.getsmallvalue(@data, @spectag_first, @spectag_end))   #创建目录用的,暂未处理.
  end
  def getmusicaddr  #获取该页面各个歌曲的页面地址
    tdata = @data
    while(1)
      s_pos = tdata.index(@listtag_first)
      if (s_pos != nil)
        tdata = tdata[s_pos, tdata.length - s_pos]
        e_pos = tdata.index(@listtag_end)
        @musiclist.push(GetValue.getsmallvalue(tdata, @listtag_first, @listtag_end))
        tdata = tdata[e_pos, tdata.length - e_pos]
      else
        break
      end
    end
  end
  def getrealaddr  #获取各歌曲页面里的真实下载地址
    @musiclist.each do |value|
      purl = "/Down.asp?id=" + value
      resp, data = @httpclient.get(purl)
      @downmusicurl.push(GetValue.getsmallvalue(data, @eachmusictag_first, @eachmusictag_end))
    end
  end
  def startdown  #开始真正下载内容
    @downmusicurl.each do |url|
      targ = "wget " + url
      system(targ)
    end
    picarg = "wget " + @imgsrc
    system(picarg)
  end
end

sal = MusicPageList.new   #创建对象
sal.start           
sal.sepvalue
sal.getmusicaddr
sal.getrealaddr
sal.startdown运行前先找到目标页面地址，然后替换程序中的  "/MusicCD/31TG_8593.htm"  这部分内容。
程序还不适很完善，对我而言仅仅是个工具，有兴趣的朋友可以继续完善他。