我希望我正确地提了这个问题。
我想将 pidstat 写入 perl 脚本,这样当用户运行它时,系统会要求他/她输入 PID,然后脚本会使用该特定 PID 运行 pidstat 并返回结果?我知道如何向用户请求 pid,然后设置脚本以读取 STDIN,但我不知道如何在 perl 中调用 pidstat!!快把我逼疯了!请帮帮我,温柔点,我还小!
答案1
阅读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";
}