mathematica抓取网页

一个简易的获取网页.nb程序

list = List[];url = "http://blog.csdn.net/gl486546/article/category/6389727/";catchPageElem[n_] := Block[{xml, len, d, i, temp},  xml = Import[url <> ToString[n], "XMLObject"];  d = Cases[xml,    XMLElement[      "span", {"class" -> "link_title"}, {XMLElement[        "a", {"shape" -> "rect",          "href" ->           href_}, {title_}], __}] :> {"http://blog.csdn.net" <> href,       StringTrim[title]}, {0, Infinity}];  len = Length[d];  Do[AppendTo[list, d[[i]]], {i, 1, len}]  ]Do[catchPageElem[i], {i, 1, 13}];list

运行结果：

“`