pidstat e perl!

Question

Espero que eu coloque esta questão corretamente.

Eu quero escrever pidstat em um script perl para que quando um usuário o execute, ele / ela seja perguntado por um PID e execute o pidstat com esse PID específico e retorne o resultado? Eu sei como solicitar o usuário para um pid e, em seguida, defina o script para ler o STDIN, mas eu estou preso em como chamar pidstat no perl !! Me deixando louco! Por favor ajude e seja gentil Eu sou apenas pequena!

    

Answer 1

Leia perldoc -f open e faça algo como:

 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";

}