Re^3: Getting a Perl program to close a command it starts when the perl program exits?

I don't use *nix, so this is something I've read about rather than done for myself, but...

there is mention (in perlfunc open, maybe more in perlopentut?) of a more-than-3-argument form of the piped open. open FILEHANDLE,MODE,EXPR,LIST

The idea is that you bypass the shell and run the command (tail in this case) directly, and so get the handle of the tail process returned rather than that of the shell. It would look something like:

my $tail_id = open my $tail_fh, '-|', 'tail', '-1lf', 'info_file' or d
+ie ...;
END{ 
    kill 3, $tail_id;
}
[download]

The caveat is that the shell is what performs the redirection of stderr in your example, so you cannot do that with this form of open.

If that is a requirement then you are into using IPC::Open3 with all the complexities that entails.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Comment on Re^3: Getting a Perl program to close a command it starts when the perl program exits? Select or Download Code