RCurl包批量爬取美女圖片

#### 計算程序的運行時間
timestart<-Sys.time();
#打印開始時間
print(timestart)
####這塊寫你要運行的程序


getwd()
setwd("./我的R/RCurl包學習/")
library(RCurl)
library(XML)
library(stringr)
myheader<-c(
  "User-Agent"="Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.1.6) ",
  "Accept"="text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
  "Accept-Language"="en-us",
  "Connection"="keep-alive",
  "Accept-Charset"="GB2312,utf-8;q=0.7,*;q=0.7"
)
url <- "http://www.zbjuran.com/mei/"
url_ori <- "http://www.zbjuran.com"
wp<-getURL(url,.encoding="gb2312",followlocation=T) #用網(wǎng)頁本身的編碼
doc <- htmlParse(wp,asText=T,encoding="UTF-8")#解析
sex_url <- xpathSApply(doc,path = "http://a",xmlGetAttr,"href")
sex_url <- sex_url[which(str_detect(sex_url,"[0-9]{4}"))]
sex_url <- paste(url_ori,sex_url,sep = "")
sex_url <- as.factor(sex_url)
sex_url <- levels(sex_url)

x <- NULL;
for(j in 2:30)
  {
    rp <- paste("_",j,".html",sep = "")
    x <- c(x,str_replace(sex_url,pattern = ".html",replacement = rp))
}
sex_url <- c(x,sex_url)
  



i=1
for(i in 1:length(sex_url))
{
  if(url.exists(sex_url[i])){
  wp1<-getURL(sex_url[i],.encoding="gb2312",followlocation=T) #用網(wǎng)頁本身的編碼
  doc1 <- htmlParse(wp1,asText=T,encoding="UTF-8")#解析
  
 url_pic <- paste(url_ori,xpathSApply(doc1,path = "http://div[@class='picbox']//img",xmlGetAttr,"src"),sep = "") 
 temp <- getBinaryURL(url_pic);
 #下載每個.R文件的二進制html文件
 note <- file(str_split(url_pic,pattern = "/")[[1]][7],open="wb")
 #打開文件世杀，對該文件進行二進制寫入操作狰住，文件的名字為.R文件的名字
 writeBin(temp,note)
 #將temp文件寫入連接note中
 close(note)
 #關閉文件掸刊，運行成功后即可下載完畢
 #Sys.sleep(time = 30)
 #每爬一次休息一會兒
}
 
}
 
  


#計算程序結束時間
timeend<-Sys.time()
#打印結束時間
print(timeend)
runningtime<-timeend-timestart
#輸出時間消耗 
print(runningtime)
最后編輯于 ：
?著作權歸作者所有,轉載或內(nèi)容合作請聯(lián)系作者
  • 人面猴
    序言：七十年代末，一起剝皮案震驚了整個濱河市，隨后出現(xiàn)的幾起案子被啼，更是在濱河造成了極大的恐慌，老刑警劉巖，帶你破解...
    沈念sama閱讀 206,126評論 6贊 481
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件产禾，死亡現(xiàn)場離奇詭異，居然都是意外死亡牵啦，警方通過查閱死者的電腦和手機亚情，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,254評論 2贊 382
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來哈雏，“玉大人楞件，你說我怎么就攤上這事衫生。” “怎么了土浸？”我有些...
    開封第一講書人閱讀 152,445評論 0贊 341
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵罪针，是天一觀的道長。 經(jīng)常有香客問我黄伊，道長泪酱，這世上最難降的妖魔是什么？ 我笑而不...
    開封第一講書人閱讀 55,185評論 1贊 278
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任还最，我火速辦了婚禮西篓，結果婚禮上，老公的妹妹穿的比我還像新娘憋活。我一直安慰自己岂津，他們只是感情好，可當我...
    茶點故事閱讀 64,178評論 5贊 371
  • 惡毒庶女頂嫁案：這布局不是一般人想出來的
    文/花漫 我一把揭開白布悦即。 她就那樣靜靜地躺著吮成，像睡著了一般。 火紅的嫁衣襯著肌膚如雪辜梳。 梳的紋絲不亂的頭發(fā)上粱甫，一...
    開封第一講書人閱讀 48,970評論 1贊 284
  • 城市分裂傳說
    那天，我揣著相機與錄音作瞄，去河邊找鬼茶宵。 笑死，一個胖子當著我的面吹牛宗挥，可吹牛的內(nèi)容都是我干的乌庶。 我是一名探鬼主播，決...
    沈念sama閱讀 38,276評論 3贊 399
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼契耿，長吁一口氣：“原來是場噩夢啊……” “哼瞒大！你這毒婦竟也來了？” 一聲冷哼從身側響起搪桂，我...
    開封第一講書人閱讀 36,927評論 0贊 259
  • 萬榮殺人案實錄
    序言：老撾萬榮一對情侶失蹤透敌，失蹤者是張志新（化名）和其女友劉穎，沒想到半個月后踢械，有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體酗电，經(jīng)...
    沈念sama閱讀 43,400評論 1贊 300
  • ?護林員之死
    正文 獨居荒郊野嶺守林人離奇死亡，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 35,883評論 2贊 323
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年内列，在試婚紗的時候發(fā)現(xiàn)自己被綠了撵术。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 37,997評論 1贊 333
  • 活死人
    序言：一個原本活蹦亂跳的男人離奇死亡德绿，死狀恐怖荷荤，靈堂內(nèi)的尸體忽然破棺而出，到底是詐尸還是另有隱情移稳，我是刑警寧澤蕴纳，帶...
    沈念sama閱讀 33,646評論 4贊 322
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布，位于F島的核電站个粱，受9級特大地震影響古毛，放射性物質發(fā)生泄漏。R本人自食惡果不足惜都许，卻給世界環(huán)境...
    茶點故事閱讀 39,213評論 3贊 307
  • 男人毒藥：我在死后第九天來索命
    文/蒙蒙 一稻薇、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧胶征，春花似錦塞椎、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,204評論 0贊 19
  • 一樁弒父案案狠，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至钱雷，卻和暖如春骂铁，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背罩抗。 一陣腳步聲響...
    開封第一講書人閱讀 31,423評論 1贊 260
  • 情欲美人皮
    我被黑心中介騙來泰國打工拉庵， 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留，地道東北人套蒂。 一個月前我還...
    沈念sama閱讀 45,423評論 2贊 352
  • 代替公主和親
    正文 我出身青樓钞支，卻偏偏與公主長得像，于是被迫代替她去往敵國和親操刀。 傳聞我的和親對象是個殘疾皇子伸辟，可洞房花燭夜當晚...
    茶點故事閱讀 42,722評論 2贊 345

推薦閱讀更多精彩內(nèi)容