바 이 두 중국어 의 성어 연결 대본 을 끌어내다.

성 어 는 존재 하지 않 거나 기대 하 는 연결 길이 가 조회 가능 한 범 위 를 초과 할 때 오 류 를 보고 하지만, 공교롭게도 일부 연결 성 어 를 찾 아 기록 할 수 있다.

#encoding:GBK

require 'net/http'
require 'nokogiri'

def get_alist(url)
	puts url
	$stdout.flush
	res = Net::HTTP.get_response(URI.parse(url))
	doc = Nokogiri::HTML res.body
	return doc.xpath("//*[@id='jielong-wrapper']")[0].css('div')[0].css('a')
end

def 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 = 1
	alist.each do |a|
		if long.has_key?(a.text) then
			return build_long(a.text,long,maxlen)
		else
			long[a.text] = 0
			return long if long.size > maxlen
			return build_long(a.text,long,maxlen) if alist.size <= i
		end
		i = i + 1
	end
end

start_chengyu = '    '
max_length = 20
long = Hash.new
long = build_long(start_chengyu,long,max_length - 1)
result_file = File.open('        .txt','w')
long.each do |k,v|
	result_file.puts k
end