拉取百度汉语的成语接龙脚本

来源：互联网发布：神经网络训练算法编辑：程序博客网时间：2024/04/28 06:52

成语不存在或期望的接龙长度超出可查询范围时会报错，不过凑合能找到部分接龙的成语，记录之。

#encoding:GBKrequire 'net/http'require 'nokogiri'def get_alist(url)puts url$stdout.flushres = Net::HTTP.get_response(URI.parse(url))doc = Nokogiri::HTML res.bodyreturn doc.xpath("//*[@id='jielong-wrapper']")[0].css('div')[0].css('a')enddef build_long(ci,long,maxlen)url = "http://hanyu.baidu.com/s?wd=#{URI.escape(ci.encode('utf-8'))}&cf=jielong&ptype=idiom"alist = get_alist(url)i = 1alist.each do |a|if long.has_key?(a.text) thenreturn build_long(a.text,long,maxlen)elselong[a.text] = 0return long if long.size > maxlenreturn build_long(a.text,long,maxlen) if alist.size <= iendi = i + 1endendstart_chengyu = '尔虞我诈'max_length = 20long = Hash.newlong = build_long(start_chengyu,long,max_length - 1)result_file = File.open('成语接龙结果文件.txt','w')long.each do |k,v|result_file.puts kend

0 0