効率がわるいのか？処理が間に合わない。mechanizeを用いてのRubyスクレイピング,CSVで保存

#coding : utf-8
require 'kconv'
require 'open-uri'
require 'mechanize'
require 'csv'
 
agent = Mechanize.new
header = ["会社名","メールアドレス","代表者名","所在地","TEL","FAX"]
CSV.open("XXX.csv","w", :headers => header, :write_headers => true) do |csv|
  #47都道府県
  for num in 1..47 do
        if num < 2 then
              pi = 1
          elsif num < 8 then
              pi = 2
          elsif num < 15 then
              pi = 3
          elsif num < 25 then
              pi = 4
          elsif num < 31 then
              pi = 5
          elsif num < 36 then
              pi = 6
          elsif num < 40 then
              pi = 7
          else num < 48
              pi = 8
      end
      url = "http://XXXXXXXXXXXXX" + pi.to_s + "&pref_id=" + num.to_s  
 
    html = open(url,"r:EUC-JP")
    page = Nokogiri.HTML(html,nil,"EUC-JP")
    count = 0
    @company = []
    #１ページに30社
    while count < 30 do
      #個別会社ページの要素を1つずつ取得
      page.search(".mini2+ .mini2 a").each do |kaisya_search| 
          sleep(1)
          count += 1
          kaisya_url = kaisya_search[:href] 
          kaisya_html = open(kaisya_url,"r:EUC-JP")    
          kaisya_page = Nokogiri.HTML(kaisya_html,nil,"EUC-JP")
            #tr:nth-child(1)もしくはtr:nth-child(3)のCSS３にメールアドレス
            valid_address = /[\w\d_-]+@[\w\d_-]+\.[\w\d._-]+/
            mail_address = kaisya_page.search('tr:nth-child(1) a').text
            if valid_address =~ mail_address
            @company.push(kaisya_search.text.toutf8)
            @company.push(kaisya_page.search('tr:nth-child(1) a').to_s.scan(/[\w\d_-]+@[\w\d_-]+\.[\w\d._-]+/)[1])
            @company.push(kaisya_page.search('.grid-7 tr:nth-child(2) td').text)
            @company.push(kaisya_page.search('.grid-7 tr:nth-child(3) td').text)
            #@company.push(kaisya_page.search('.grid-7 tr:nth-child(4) td').text)
            #@company.push(kaisya_page.search(':content("ファックス")+ td').text)
            
            #ほんとは上記コメントアウトの2行を加えたいのですが、処理が追いつかないのかな？下に記しました
            
            else
            @company.push(kaisya_search.text.toutf8)
            @company.push(kaisya_page.search('tr:nth-child(3) a').to_s.scan(/[\w\d_-]+@[\w\d_-]+\.[\w\d._-]+/)[1])
            @company.push(kaisya_page.search('tr:nth-child(4) .standard').text)
            @company.push(kaisya_page.search('tr:nth-child(6) .standard').text)
            #@company.push(kaisya_page.search('td td tr:nth-child(8) .standard').text)
            #@company.push(kaisya_page.search('tr:nth-child(10) .standard').text)
            
            #同上
            
            end 
            csv << @company.to_a.pop(4)#daihyousya,syozaichi,tel,fax,
        #次のページに移動、 
        if count == 30
          unless page.search("span+ a").empty?          
          next_30_url = page.search("span+ a")[0][:href] 
          next_30_html = "http://www.akabou.ne.jp/" + next_30_url
          next_html = open(next_30_html,"r:EUC-JP")
          page = Nokogiri.HTML(next_html,nil,"EUC-JP")
          count = 0
          sleep(1)
          end 
        end     
      end
    end
  end
end