利用R将本地数据文件读入redis数据库中

从本地读取一个文本数据文件，从左到右分别是用户id，口令，邮箱，在redis建立合适的数据模型，并将这些数据导入到redis 

先将作业素材的数据放在R的默认路径下

 [root@192 ~]# R

 

R version 3.1.0 (2014-04-10) -- "Spring Dance"

Copyright (C) 2014 The R Foundation for Statistical Computing

Platform: i686-pc-linux-gnu (32-bit)

 

R is free software and comes with ABSOLUTELY NO WARRANTY.

You are welcome to redistribute it under certain conditions.

Type 'license()' or 'licence()' for distribution details.

 

  Natural language support but running in an English locale

 

R is a collaborative project with many contributors.

Type 'contributors()' for more information and

'citation()' on how to cite R or R packages in publications.

 

Type 'demo()' for some demos, 'help()' for on-line help, or

'help.start()' for an HTML browser interface to help.

Type 'q()' to quit R.

> data<-scan(file="第5周作业素材.txt",what=character(),sep=" ")

Read 205 items

> data<-data[which(data!='#')]

> data

  [1] "wolys"                    "wolysopen111"           

  [3] "wolys@21cn.com"           "coralshanshan"          

  [5] "601601601"                "zss1984@126.com"        

  [7] "pengfeihuchao"            "woaidami"               

  [9] "294522652@qq.com"         "simulategirl"           

 [11] "@#$9608125"               "simulateboy@163.com"    

 [13] "daisypp"                  "12345678"               

 [15] "zhoushigang_123@163.com"  "sirenxing424"           

 [17] "tfiloveyou"               "sirenxing424@126.com"   

 [19] "raininglxy"               "1901061139"             

 [21] "lixinyu23@qq.com"         "leochenlei"             

 [23] "leichenlei"               "chenlei1201@gmail.com"  

 [25] "z370433835"               "lkp145566"              

 [27] "370433835@qq.com"         "cxx0409"                 

 [29] "12345678"                 "cxx0409@126.com"  

 

# 加载rredis库

> library(rredis)

 #远程连接redis server

> redisConnect(host="127.0.0.1",port=6379)

> redisFlushAll()

[1] "OK"

> redisKeys()

NULL

 

#循环插入数据

> id<-NULL

> for(i in 1:length(data)){

+   if(i %% 3 == 1) {

+     id<-data[i]

+     redisSAdd(paste("users:",id,sep=""),paste("id:",id,sep=""))

+   } else if(i %% 3 == 2) {

+     redisSAdd(paste("users:",id,sep=""),paste("pw:",data[i],sep=""))

+   } else {

+     redisSAdd(paste("users:",id,sep=""),paste("email:",data[i],sep=""))

+   }

+ }

#列出所有的KEY

> redisKeys()

 [1] "users:xl200811"      "users:candly8509"    "users:bokil"       

 [4] "users:yoyomika"      "users:simulategirl"  "users:xiazai200901"

 [7] "users:ai3Min2"       "users:mengjie007"    "users:darksoul0929"

[10] "users:alex126126"    "users:q1718334567"   "users:cxx0409"     

[13] "users:abc654468252"  "users:ysdz8"         "users:huangdaqiao" 

[16] "users:fxh852"        "users:coralshanshan" "users:licaijun007" 

[19] "users:jiongjiongmao" "users:baoautumn"     "users:llx6888"     

[22] "users:jacksbalu"     "users:sirenxing424"  "users:babylovebooks"

[25] "users:yiling1007"    "users:fennal"        "users:pengfeihuchao"

[28] "users:demonhaodh"    "users:leochenlei"    "users:daisypp"     

[31] "users:wolys"         "users:hudaoyin"      "users:boiny"       

[34] "users:baby19881018"  "users:beibeilong012" "users:xldq_l"      

[37] "users:raininglxy"    "users:pengcfwxh"     "users:xiaochuan2018"

[40] "users:kangte1"       "users:z370433835" 

 

#通过KEY查询VALUE

> redisSMembers("users:wolys")

[[1]]

[1] "email:wolys@21cn.com"

 

[[2]]

[1] "id:wolys"

 

[[3]]

[1] "pw:wolysopen111"

 

#关闭redis连接

> redisClose()

完成测试案例。