Я надеюсь, что формулирую этот вопрос правильно.
Я хочу записать pidstat в сценарий жемчуга так, чтобы, когда пользователь выполняет его, его попросили PID, сценарий затем выполняет pidstat с тем определенным PID и возвращает результат? Я знаю, как запросить пользователя на pid и затем установить сценарий для чтения STDIN, но я застреваю о том, как обратиться к pidstat в жемчуге!! Сведение с ума меня! Помогите и будьте нежны, я только мало!
Читать 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";
}