前言
“白日依山尽,___”。下句自然填黄河入海流,那么“日月忽其不淹兮,___,___,恐美人之迟暮”,中间两句怎么填呢?
最近工作中有个需求,就是1500道语文诗词填空题没有答案,现在需要给这些题目大爷们匹配它们对应的答案,好在题目信息都很完整,指出了诗词出处、作者信息。自然想到到网上爬取对应文章信息然后字符串匹配答案。目前做完,效果还可以,基本上所有题目的答案都有了,现把操作流程记录下,做个总结。
1. 文章信息获取
网上找了很久,目前发现百度汉语对古诗词收录的比较好,格式也比较规范,整个爬取过程还是比较简单,浏览器分析网站,找到它们的搜索接口:http://hanyu.baidu.com/hanyu/ajax/sugs只需要传一个参数:mainkey,是一个urlencode格式的字符串。接口会返回一个匹配列表,再用作者名称对这个列表做筛选,详细代码如下:
baseUrl := "http://hanyu.baidu.com/hanyu/ajax/sugs" client := &http.Client{ } u, _ := url.Parse(baseUrl) q := u.Query() q.Set("mainkey", name) u.RawQuery = q.Encode() //添加Header req, _ := http.NewRequest("GET", u.String(), nil) req.Header.Add("User-Agent", `Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.100 Safari/537.36`) req.Header.Add("DNT", "1") req.Header.Add("Host", "hanyu.baidu.com") req.Header.Add("Accept-Language", "zh-CN,zh;q=0.8") req.Header.Add("Referer", "http://hanyu.baidu.com/shici/detail") resp, errDo := client.Do(req)
拿到返回值以后,筛选出对应的作者信息。
//如果有多个搜索结果,比对author是否正确 respJson.ForEach(func(key, value gjson.Result) bool { //先看看有没有display_name displayName := value.Get("display_name.0").String() sid := value.Get("sid.0").String() if len(displayName) == 0 { //不是这条记录 return true } //看看type typeStr := value.Get("type.0").String() if typeStr == "poemline"{ //取Source displayName = value.Get("source_poem.0").String() sid = value.Get("source_poem_sid.0").String() } literatureAuthor := value.Get("literature_author.0").String() //author是否一致 if literatureAuthor == author { searchResult.Sid = sid searchResult.DisplayName = displayName searchResult.Author = literatureAuthor return false } return true // keep iterating })
SearchResult保存了搜索到的结果,根据sid拿到文章页面,解析出其中的文章。
func GetContent(sid string) (content string, err error) { baseUrl := "http://hanyu.baidu.com/shici/detail" result := make([]string, 0, 0) client := &http.Client{ } u, _ := url.Parse(baseUrl) q := u.Query() q.Set("pid", sid) u.RawQuery = q.Encode() req, _ := http.NewRequest("GET", u.String(), nil) req.Header.Add("User-Agent", `Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.100 Safari/537.36`) req.Header.Add("DNT", "1") req.Header.Add("Host", "hanyu.baidu.com") req.Header.Add("Accept-Language", "zh-CN,zh;q=0.8") req.Header.Add("Referer", "http://hanyu.baidu.com/shici/detail") resp, errDo := client.Do(req) if errDo != nil || resp.StatusCode != 200 { err = errors.New("无法连接百度汉语 " + errDo.Error()) return } docm, errDoc := goquery.NewDocumentFromResponse(resp) if errDoc != nil { err = errors.New("解析Doc错误 " + errDoc.Error()) return } //诗词信息都保存在 body_p 的div中,可以通过PuerkitoBio/goquery库获取 pSelect := docm.Find("#body_p") pSelect.Each(func(pos int, selection *goquery.Selection) { content := strings.TrimSpace(selection.Text()) result = append(result, content) }) content = strings.Join(result, "") return }
目前会爬取百度汉语、古诗词两个网站的数据,如果有更好的数据源,只需要实现Spider接口,在MapSpiderManifest()方法中注册即可。
type Spider interface { GetContent(SearchResult) (string, error) FindContent(string, string) (SearchResult, error) } func MapSpiderManifest() map[string]Spider { //初始化并且注册所有的Spider spiderMap := make(map[string]Spider) //百度 baiduSpider := new(BaiduSpider) spiderMap["baiduSpider"] = baiduSpider //古诗文网 gushiwenSpider := new(GushiwenSpider) spiderMap["gushiwenSpider"] = gushiwenSpider return spiderMap }
2.诗词句子查找
古诗文默写,以前上学的时候做的多了,把一句话抠出来,随机选其中几段话让学生默写。一般可以归类为一下几种模式:
开头留空 :_,[_,...],何人不起故园情。
末尾留空:俱往矣,_,[_,...]。
中间留空:月出于东山之上,_,白露横江,
不管是什么样的模式,就每个填空处来看,只有它前面或者后面有提示句,我们才能知道这个空的答案是什么。也就是说,这样的填空可以自主的找到答案,姑且称之为自主空。而前后都没有提示句的空,只能等待附近有自主空找到了答案,才能找到它本身的答案,用一个图说明更加清晰:
图中灰色的块因为有提示句,所以可以通过步骤一种爬取下来的文章内容找到对应的答案,填入Blank中,具体的查找算法如下代码所示:
//已知newFind的PreString,求BlankString和PostString func makeWithPreContent(contentsSplit []string, newFind *Find) { for l := range contentsSplit { if isEqual(contentsSplit[l], newFind.PreString) && l < len(contentsSplit)-1 { newFind.BlankString = contentsSplit[l+1] if l < len(contentsSplit)-2 { newFind.PostString = contentsSplit[l+2] } newFind.BlankFinish = true } } } //已知newFind的PostString,求BlankString和PreString func makeWithPostContent(contentsSplit []string, newFind *Find) { for l := range contentsSplit { if isEqual(contentsSplit[l], newFind.PostString) && l > 0 { newFind.BlankString = contentsSplit[l-1] if l-1 > 0 { newFind.PreString = contentsSplit[l-2] } newFind.BlankFinish = true } } } // 按标点符号分隔内容 func SplitByPunctuation(s string) ([]string, []string) { regPunctuation, _ := regexp.Compile(`[,,。."[“”‘'']") result[i] = regQuoting.ReplaceAllString(result[i], "") } return result, toPun }
所有的自主块都找到答案后,可以把每个自主块看作一个双向链表的表头,我们所要做的就是遍历每个双向链表,把其中每个节点的答案都通过查找算法找出来。当下一个节点是NULL,或者下个节点是一个自主块时,就停止遍历,处理下一个双向链表。这样,无论给出的需要填空的内容多么复杂,都可以顺利的完整自动填写工作。
3.效果
一些常用的文言文或诗词:
1、 前赤壁赋
2、 离骚
项目地址:AncientPoetryFillBlank (本地下载)
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,如果有疑问大家可以留言交流,谢谢大家对的支持。
《魔兽世界》大逃杀!60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容,新游玩模式《强袭风暴》即将于3月21 日在亚服上线,届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕,并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时,他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中,玩家将会进入一个全新的海盗主题大逃杀式限时活动,其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场,作为一个独立于主游戏之外的活动,玩家可以用大逃杀的风格来体验《魔兽世界》,不分职业、不分装备(除了你在赛局中捡到的),光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式,玩家在加入海盗主题的预赛大厅区域前,可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹,《巨龙崛起》和《魔兽世界:巫妖王之怒 经典版》的玩家都可以获得奖励。
更新日志
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]