主页 / ubuntu / 问题 / 960536
Accepted
SimplySimplified
Asked: 2017-09-30 05:34:18 +0800 CST

pidstat 和 perl！

  • 772

我希望我正确地表达了这个问题。

我想将 pidstat 写入 perl 脚本，这样当用户运行它时，他/她会被要求输入 PID，然后脚本会使用该特定 PID 运行 pidstat 并返回结果？我知道如何向用户请求 pid，然后将脚本设置为读取 STDIN，但我不知道如何在 perl 中调用 pidstat！使我抓狂！请帮助和温柔我只是小！

scripts

1 个回答

  1. Best Answer

    阅读perldoc -f open，并执行以下操作：

     open(P, "/bin/date --date=\"$since\" '+%Y,%m,%e' |" ) || die "can't fork: $!";
           while (<P>) {
             chomp;
             $tmp = $_;
             $tmp =~ s/,0/,/;   # remove %m leading zero for months less than 10.
             @base = split /,/, $tmp, 4;
             if ( $#base != 2 ) { # only expect 3 fieds from /bin/date
               die "Cannot parse \"$since\" with /bin/date\n";
             }
           }
  close P    || die "bad /bin/date";

    }

    • 1

相关问题