将输出从 exec 发送到文件 perl

Question

问题

在 perl 中运行 exec 时，我无法将输出重定向到文件。

我在 exec 中运行 vlc，但由于我怀疑每个人都设置了它，所以我用下面的 echo 替换了它，它显示了与示例相同的行为。

我只对 exec 'command','args' 格式的 exec 感兴趣，而不是产生 shell 的那个，因为它产生了一个带有 vlc 的子 shell，它仍然打印到屏幕上 + 干净地杀死它的其他问题。

---

代码

use strict;
use warnings;

my $pid = fork;
if (!defined $pid) {
    die "Cannot fork: $!";
}
elsif ($pid == 0) {
    exec "/usr/bin/echo","done";
}

---

试过

exec "/usr/bin/echo","done",">/dev/null";

正如预期的那样，只打印 ">/dev/null"，但值得一试。

exec "/usr/bin/echo done >/dev/null";

运行 sh 然后运行 ​​echo，在这里工作，但不是我的 vlc 实际问题，我认为无论如何我都会包括在内，因为肯定有人会建议它。

问题

使用 'command','args' 时如何将这个 exec 的输出重定向到文件？

额外

如果需要更多信息，请询问。

Answer 1

原来你可以在 exec 之前更改文件描述符

use strict;
use warnings;

my $pid = fork;
if (!defined $pid) {
    die "Cannot fork: $!";
}
elsif ($pid == 0) {
    open STDOUT, ">", '/logger/log' or die $!;
    open STDERR, ">", '/logger/log' or die $!;
    exec "/usr/bin/echo","done";
 }

Answer 2

我想如果您只需要打印到文件，这应该可以。

获取输出的最简单方法是使用反引号。

use strict;
use warnings;

open (my $file, '>', 'output.log');
my $pid = fork;
if (!defined $pid) {
    die "Cannot fork: $!";
}
elsif ($pid == 0) {
    print $file `/usr/bin/echo done`;
}