www.researchbuzz.com~2

来自「垂直搜索的网络爬虫」· COM~2 代码 · 共 6 行

define pattern digit="[0-9][0-9][0-9][0-9]"
do (a)--(b)digit-(c)content-(d)$until[content-,$startwith"Posted in the following"](e);(f)-(e)$debug((a),(b),(c),(d),(f)).$l("time",(a),(b)).$l("title",(c))$l("text",(d),(f)).$l("_new",(a),(f))
do (a).$to.text.(b).(c)link(d).$l("li",(d))$l("_li",(a),(d))
set article=_new[time,title!,text,link?=_li.li]
output article