将cron转换为R中的时间戳
我正在寻找一种使用R将cron信息转换为时间戳列表的方法。 有简单的方法吗 给定crontab以及开始日期和结束日期,我想获得这两个日期期间的触发器时间戳列表 我还没有发现任何专门处理CRON信息的包,但可能有人已经有这个问题了 谢谢我想你指的是格式。我知道没有库解析此信息,但下面的代码片段应该可以帮助您开始:将cron转换为R中的时间戳,r,crontab,cronexpression,R,Crontab,Cronexpression,我正在寻找一种使用R将cron信息转换为时间戳列表的方法。 有简单的方法吗 给定crontab以及开始日期和结束日期,我想获得这两个日期期间的触发器时间戳列表 我还没有发现任何专门处理CRON信息的包,但可能有人已经有这个问题了 谢谢我想你指的是格式。我知道没有库解析此信息,但下面的代码片段应该可以帮助您开始: splitre <- function(p, s) { s <- as.character(s) stopifnot(length(s) == 1) m <
splitre <- function(p, s) {
s <- as.character(s)
stopifnot(length(s) == 1)
m <- gregexpr(p, s)[[1]]
if (m[1] == -1) return(s);
return(substring(s, c(1, m + attr(m, "match.length")), c(m - 1, nchar(s))))
}
ranges <- function(desc, lo, hi, name) {
res <- integer(0)
for (range in splitre(",", desc)) {
m <- regexec("^(?:\\*|(?:(\\d+)(?:-(\\d+))?))(?:/(\\d+))?$", range)
m <- regmatches(range, m)[[1]]
m[m == ""] <- NA
m[1] <- NA
m <- as.integer(m)
if (is.na(m[2])) r <- lo:hi
else if (is.na(m[3])) r <- m[2]
else r <- m[2]:m[3]
if (!is.na(m[4])) {
stopifnot(m[4] > 0)
r <- r[rep(c(TRUE, rep(FALSE, m[4] - 1)), length.out = length(r))]
}
res <- c(res, r)
}
res <- data.frame(res)
names(res) <- name
return(res)
}
ct2df <- function(lines) {
res <- data.frame()
for (line in lines) {
if (regexpr("^ *(#|$)", line) == 1) continue
parts <- splitre(" +", line)
stopifnot(length(parts) > 5)
j <- ranges(parts[1], 0, 59, "minute")
j <- merge(j, ranges(parts[2], 0, 23, "hour"))
j <- merge(j, ranges(parts[3], 1, 31, "day.of.month"))
j <- merge(j, ranges(parts[4], 1, 12, "month"))
j <- merge(j, ranges(parts[5], 0, 6, "day.of.week"))
res <- rbind(res, j)
}
return(res)
}
print(ct2df("* 1-2,5 1-10/2 */3 1 command"))
splitre您能提供输入和所需输出的示例吗?@January给定crontab以及开始日期和结束日期,我想获得这两个日期期间的触发时间戳列表。***date>~/timestamps.txt
。那就等等。哈哈。