用Mathematica爬取我的百度经验目录

这里只爬取前10页的内容：

urlss = StringJoin[
     "http://jingyan.baidu.com/user/npublic/?uid=\
d1b612bceb0dc22ba8ffe137&pn=", ToString@#] & /@ Range[0, 602, 7];
urls = Flatten[
   Table[StringCases[URLRead[urlss[[n]], "Body"], 
     "<a href=\"/article/" ~~ Shortest[x__] ~~ "\" title=" :> x], {n, 
     1, 10}]];
网址 = (StringJoin["https://jingyan.baidu.com/article/", #] & /@ 
    Drop[urls, {2, -1, 2}]);
标题 = Flatten[
   Table[StringCases[URLRead[urlss[[n]], "Body"], 
     ".html\" title=\"" ~~ Shortest[x__] ~~ "\"" :> x], {n, 1, 10}]];
Grid[Transpose[{标题, 网址}], Frame -> {All, False}, Alignment -> Right]

运行结果如下：