☰

設定エディタ

tag-icon • tag-icon arch-linux syslog netstat lsof r
設定エディタ

毎分実行するようにcrontab -eを介してcronjobを追加しました。 systemctlでcronieを有効にして起動しました。

設定エディタ

$ export EDITOR=vim

クローンジョブを追加

$ crontab -e

* * * * * Rscript /srv/shiny-system/cron/CPU.R
~
~
"/tmp/crontab.8VZ7vq" 1 line, 47 characters

クローニーの取り付け

$ sudo pacman -Syu cronie
$ sudo systemctl enable --now cronie.service
$ systemctl status cronie

クローンジョブのリスト

$ crontab -l
* * * * * Rscript /srv/shiny-system/cron/CPU.R

以下にRでこのプログラムを書いて、シェルで起動すると正常に動作しますが、cronieで起動すると期待どおりに動作しません。

setwd("/srv/shiny-system/cron")
I <- 0
for (i in 1:60) {
    system("top -n 1 -b -u shiny > top.log")
    dat <- readLines("top.log")
    id <- grep("R$", dat)

    Names <- strsplit(gsub("^ +|%|\\+", "", dat[7]), " +")[[1]]

    if (length(id) > 0) {
        # ‘top’ data frame;
        L <- strsplit(gsub("^ *", "", dat[id]), " +")
        dat <- data.frame(matrix(unlist(L), ncol = 12, byrow = T))
        names(dat) <- Names
        dat <- data.frame(Time = Sys.time(), dat[, -ncol(dat)], usr = NA, app = NA)
        dat$CPU <-as.numeric(as.character(dat$CPU))
        dat$MEM <-as.numeric(as.character(dat$MEM))

        # Check if connection number changed;
        for (i in 1:length(dat$PID)) {
            PID <- dat$PID[i]
            system(paste("sudo -i netstat -p | grep ", PID, " > netstat.log"))
            # system(paste("sudo -i netstat -p | grep ", PID, " >> netstat.log2"))
            system(paste("sudo -i lsof -p ", PID, " | grep DIR > lsof.log"))
            netstat <- readLines("netstat.log")
            lsof <- readLines("lsof.log")
            dat$usr[i] <- length(grep("ESTABLISHED", netstat) & grep("tcp", netstat))

            dat$app[i] <- regmatches(lsof, regexec("srv/shiny-server/(.*)", lsof))[[1]][2]

        }
        dat <- dat[, c("app", "usr")]
    } else {
        dat <- data.frame(app = "app1", usr = 0)
    }
    write.table(dat, file = "CPU.txt")
}

プログラムは、次の4つのファイルとクローニーを生成します。〜らしいbcosを実行するには、/srv/shiny-system/cronの場所でこれを見ることができます。

top.log
netstat.log
lsof.log
CPU.txt

netstat.logしかし、問題はログ/データ/情報がないということです。lsof.log

それでは、これが私のRプログラムや友人に問題があるのでしょうか？

しかし、cronを使ってこのプログラムを実行すると、Ubuntu Linuxnetstat.log、 からから目的のデータを取得しますlsof.log。

それでは、これはArch Linuxのバグ/問題ですか？ Archnetstatがに問題があるようですlsof。私もnetstat設置しましたが、

netstat用ネットワークツールのインストール

$ sudo pacman -S net-tools

どんなアイデアがありますか？

関連情報