转载爬虫

比特之理 » 抓取豆瓣相册图片——Mathematica版|とある東雲研究所の分所
http://www.kylen314.com/archives/1647

$\Huge\text{终于看懂了}$
这脑袋瓜子，当时是想什么去了？

st = Import[
   "http://movie.douban.com/subject/10581289/photos?type=S&start=0&;\
sortby=vote&size=a&subtype=a", "XMLObject"];


PicAddress = Cases[st,
  XMLElement["li", {"data-id" -> ___},
    {___, XMLElement["div", {"class" -> "cover"},
      {___, XMLElement["a", {"shape" -> "rect", "href" -> ___},
        {___, XMLElement["img", {"src" -> src_}, {}], ___}
        ], ___}
      ], ___}] :> {src}, {0, Infinity}];
 PicAddress//Column


rawpic=StringReplace[#,"thumb"->"raw"]&/@PicAddress;
rawpic//Length


Import[#]&/@((rawpic[[7;;10]])//Flatten)

Import[#]&@@@rawpic[[18;;20]]


Export["e://" <> StringSplit[#, "/"][[-1]], Import[#]] & @@@rawpic