为儿子取高分名字而编写的lua程序

11月为给儿子取名字,折腾了2个星期,我们家大事都需要老婆做主,取名字当然算是大事,虽然我想好些名字,但都被否决,老婆需要算五行,名字的评分要好高,找了个神棍网站,我也抱着宁可信其有的态度,名字要好听,得分要高,还要有含义,简直就是大海捞针,折腾两个星期后,名字终于取出来,为此还写了程序来捞这个针,虽然最后并不是从中定,但也是记录养孩子的不容易.

用luacurl实现在网上名字评分,为儿子起名

1.网页抓取
   发现抓不,通过firebug比较
   需要加上c:setopt( curl.OPT_HTTPHEADER, "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0" )
2.urlencode utf-8编码
   lua以前只实现ascii编码,utf-8还没找到解决方法,决定用cli调c#来编码名字
       require  "kpBaseLuaClrApi"
       local nameutf8 = csharpUrlEncode(name)
3.正则表达式找出关键的分数
      local pattern = "<div class=\"qtotal\"><span>(?<v1>.*?)?<v2>.*?)<"
      local restable,patcount = csharpRegex(html,pattern);
4.读文件字典
     file = io.open("namedic.txt","r")
local count = 0
local xuancount = 1
for line in file:lines() do

5.字符转数字
   local fen = restable[1].v2
    if tonumber(fen)>=95 then

local myLuaBasePath = "D:\\kpServices\\luapublicApi"
package.path = package.path..";"..myLuaBasePath.."\\?.lua;"

require  "luafile_SysApi"
require  "kpBaseLuaClrApi"

curl = require("luacurl")

function get_html(url, c)
    local result = { }
    if c == nil then
        c = curl.new()
    end
    c:setopt(curl.OPT_URL, url)
        c:setopt( curl.OPT_HTTPHEADER, "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0" )
    c:setopt(curl.OPT_WRITEDATA, result)
    c:setopt(curl.OPT_WRITEFUNCTION, function(tab, buffer)     --call back函数，必须有
        table.insert(tab, buffer)                      --tab参数即为result，参考http://luacurl.luaforge.net/

        return #buffer
    end)
    local ok = c:perform()
    return ok, table.concat(result)             --此table非上一个table，作用域不同
end


file = io.open("namedic.txt","r")
local count = 0
local xuancount = 1
for line in file:lines() do
        count = count + 1
        if count>11315 then


                local name = '王'..line
                local nameutf8 = csharpUrlEncode(name)
                local url = "http://www.123cha.com/xm/"..nameutf8.."-0"
                local ok, html = get_html("http://www.123cha.com/xm/"..nameutf8.."-0")
                if ok then


                  local pattern = "<div class=\"qtotal\"><span>(?<v1>.*?)?<v2>.*?)<"
                  local restable,patcount = csharpRegex(html,pattern);

                  if patcount>0 then
                          local fen = restable[1].v2
                          if tonumber(fen)>=95 then
                                print(xuancount..','..name..','..restable[1].v2..'------------'..count)
                                xuancount = xuancount + 1
                          end
                  end



                else

                        print ("Error" )
                end
        end ---ifend

        --print(count..','..line)
        --if count>1000 then
          --break
        --end
end

-----------------luafile_WebApi.lua------------------------------------------------------------------------

--local myLuaBasePath = "D:\\work\\lua\\public"
--package.cpath = myLuaBasePath.."\\kpluacurl.dll;"..package.cpath
--package.path = ".;"..package.path

--package.cpath = ".\\luacurl.dll;"
--package.path = ".;"
--print("--"..package.cpath)
require "kpluacurl"

local function curlWrite( bufferTable )
 return function( stream, buffer )
  table.insert( bufferTable, buffer )
  return string.len( buffer )
 end
end

function luaweb_urlget( URL, session )
 local ht = {}
 local t = {}
 local curlObj = curl.new()

 curlObj:setopt( curl.OPT_HEADER, true )
 curlObj:setopt( curl.OPT_HEADERFUNCTION, curlWrite( ht ) )
 curlObj:setopt( curl.OPT_WRITEFUNCTION, curlWrite( t ) )
 curlObj:setopt(curl.OPT_ENCODING, "gb2312")
 curlObj:setopt( curl.OPT_URL, URL )
 if ( session ) then
  curlObj:setopt( curl.OPT_COOKIE, session )
 end

 curlObj:perform()
 curlObj:close()

 local hr = table.concat( ht, "" )
 local r = table.concat( t, "" )
 local h, c, m = string.match( r, "(.-) (.-) (.-)\n" )
 t = {}
 for cookie in string.gmatch( hr, "Set%-Cookie: (.-);" ) do
  table.insert( t, cookie )
 end
 local cookie = table.concat( t, "; " )
 return r, tonumber( c ), cookie
end

function luaweb_urlpost( URL, session, postData )
 local ht = {}
 local t = {}
 local curlObj = curl.new()

 curlObj:setopt( curl.OPT_HEADER, true )
 curlObj:setopt( curl.OPT_HEADERFUNCTION, curlWrite( ht ) )
 curlObj:setopt( curl.OPT_WRITEFUNCTION, curlWrite( t ) )
 curlObj:setopt( curl.OPT_URL, URL )
 curlObj:setopt( curl.OPT_POSTFIELDS, postData )
 if ( session ) then
  curlObj:setopt( curl.OPT_COOKIE, session )
 end

 curlObj:perform()
 curlObj:close()

 local hr = table.concat( ht, "" )
 local r = table.concat( t, "" )
 local h, c, m = string.match( r, "(.-) (.-) (.-)\n" )
 t = {}
 for cookie in string.gmatch( hr, "Set%-Cookie: (.-);" ) do
  table.insert( t, cookie )
 end
 local cookie = table.concat( t, "; " )
 return r, tonumber( c ), cookie
end