mirror of
https://gitlab.com/robocopAlpha/pihole_lists.git
synced 2026-05-17 18:42:16 -07:00
40 lines
1.1 KiB
R
Executable file
40 lines
1.1 KiB
R
Executable file
setwd("~/OneDrive - O365 Turun yliopisto/Git/Gitlab.DC/pihole_lists/comparison/Mirrors/")
|
|
file.contents <- list.files(path = ".",pattern = "txt")
|
|
|
|
library(doParallel)
|
|
myCluster <- makeCluster(4, type = "FORK",useXDR=F)
|
|
print(myCluster)
|
|
registerDoParallel(myCluster)
|
|
results <- foreach(f = file.contents,.inorder = F) %dopar% {
|
|
var <- list(readLines(f))
|
|
names(var) <- f
|
|
return(var)
|
|
}
|
|
stopCluster(myCluster)
|
|
rm(file.contents)
|
|
|
|
dbl <- readLines("../dbl.oisd.txt")
|
|
|
|
print(paste("name","LEN","common","unique",sep=":"))
|
|
for(i in seq_along(results)){
|
|
l=results[[i]]
|
|
name <- names(l)
|
|
l <- l[[1]]
|
|
print(paste(name,length(l),length(intersect(l,dbl)),length(setdiff(l,dbl)),sep=" : "))
|
|
}
|
|
|
|
tmp <- unlist(results)
|
|
print(paste(length(tmp),length(intersect(tmp,dbl)),length(setdiff(tmp,dbl)),length(setdiff(dbl,tmp)),sep = " : "))
|
|
|
|
var2 <- readLines('../StevenBlack.txt')
|
|
var2 <- c(var2,readLines('../malwaredomains.domains.txt'))
|
|
var2 <- var2[var2 != ""]
|
|
|
|
for(i in seq_along(results)){
|
|
l=results[[i]]
|
|
name <- names(l)
|
|
l <- l[[1]]
|
|
print(paste(name,length(l),length(intersect(l,var2)),length(setdiff(l,var2)),sep=" : "))
|
|
}
|
|
rm(i,l,name)
|
|
|