打开perl后，如何在不打印到磁盘的情况下捕获bash STDOUT和STDERR？

IPC：：Run 让这一切变得简单。

use IPC::Run qw( run );

my @cmd = ( "find", "-s", ".", "piggy" );

run \@cmd, ">", \my $stdout, "2>", \my $stderr;

my $status = $?;

孩子在上述程序中继承了 STDIN。如果不希望这样做，可以使用以下命令：

run \@cmd, "/dev/null", \my $stdout, \my $stderr;

---

但是，如果您有兴趣了解所涉及的系统调用，请继续阅读。

1. 创建三个管道。
2. 如果此操作失败，
   1. 流产。
3. 叉。
4. 如果此操作失败，
   1. 流产。
5. 在孩子身上，
   1. 关闭第一个管道的读取端。
   2. 关闭第二个管道的读取端。
   3. 关闭第三个管道的读取端。
   4. 设置第一个管道的 close-on-exec 标志。
   5. 打开。/dev/null
   6. 如果此操作失败，
      1. 将错误消息写入第一个管道。
      2. 叫。（退出代码无关紧要。_exit( 255 )
   7. 用于将手柄复制到 fd 0 上。dup2/dev/null
   8. 如果此操作失败，
      1. 将错误消息写入第一个管道。
      2. 叫。（退出代码无关紧要。_exit( 255 )
   9. 将手柄关闭到 。/dev/null
   10. 用于将第二个管道的写入端复制到 fd 1 上。dup2
   11. 如果此操作失败，
       1. 将错误消息写入第一个管道。
       2. 叫。（退出代码无关紧要。_exit( 255 )
   12. 关闭第二个管道的写入端。
   13. 用于将第二个管道的写入端复制到 fd 2 上。dup2
   14. 如果此操作失败，
       1. 将错误消息写入第一个管道。
       2. 叫。（退出代码无关紧要。_exit( 255 )
   15. 关闭第三个管道的写入端。
   16. exec程序。
   17. 如果这失败了（即如果我们到达这里），
       1. 将错误消息写入第一个管道。
       2. 叫。（退出代码无关紧要。_exit( 255 )
6. 关闭第一个管道的写入端。
7. 关闭第二个管道的写入端。
8. 关闭第三个管道的写入端。
9. 创建变量 。$error_msg
10. 圈
    1. 从第一个管道读取。
    2. 如果达到 EOF，
       1. 退出循环。
    3. 将已读的内容附加到 。$error_msg
11. 如果定义，$error_msg
    1. 启动子项时出错。 包含原因。$error_msg
    2. 流产。
12. 关闭第一个管道。
13. 为第二个和第三个管道创建位域。select
14. 创建两个初始化为空字符串的变量。每个管道都将存储从剩余的两个管道之一接收的数据。
15. 当位域仍设置位时，
    1. 用于等待数据。select
    2. 对于每个现成的手柄，
       1. 用于从就绪手柄读取。sysread
       2. 如果此操作失败，（即如果返回 -1），sysread
          1. 这不应该发生。
          2. 清除位字段中的相应位。
       3. 如果 EOF（即如果返回零），sysread
          1. 清除位字段中的相应位。
       4. 还
          1. 将读取的数据追加到相应的变量中。
16. 关闭第二根管道。
17. 关闭第三根管道。
18. 用于等待孩子退出。waitpid

IPC：：Open3 可以为您处理步骤 1 到 12。open3

IO：：Select 可以为您简化步骤 13 到 15。

还有简单的 Capture：：Tiny

use warnings;
use strict;
use feature 'say';

use Capture::Tiny qw(capture);

#my @cmd = ('find', '-s', @ARGV);
my @cmd = ( 'ls', '-l', (@ARGV ? shift : '.') );    

my ($stdout, $stderr, $exit) = capture {
  system( @cmd );
};

say $stdout          if $stdout;
say "Error: $stderr" if $stderr;
say "exit: $exit"    if $exit;

可以在块内运行任何 Perl 代码，而不仅仅是通过 .因此，无需进行 shell 重定向（可以从命令中删除它）。system2> filename

这确实在内部使用文件，也可以显式管理（例如，这里详细讨论）。但我认为问题在于避免在代码中处理文件的需要。

请小心将用户输入作为参数传递给命令。

我建议你像池上建议的那样使用。我只是想回答OP问的这部分问题：IPC::Run

那么我该如何自己重定向呢？

用于复制文件描述符。请注意，这仍然会写入单独的文件，并且仅回答重定向部分。open

sub run {
    my $output = shift; # a file to redirect STDERR to

    print "Running: ('" . join("', '", @_) . "') 2> $output\n";

    # dup STDERR so that we can restore it later
    open(my $err, '>&', \*STDERR) or die "Can't dup stderr: $!";

    # reopen STDERR to output to the supplied file
    open(STDERR, '>', $output) or die "Can't redirect stderr: $!";

    # "open" your command
    open(my $cmd, '-|', @_) or die "Can't exec $_[0]: $!";
    while(<$cmd>) {
        print $_;
    }
    close($cmd);

    # restore STDERR
    open(STDERR, '>&', $err) or die "Can't restore stderr: $!";
    close($err);
}

my @cmd = ('find', '-s', '.', '-maxdepth', '1', '2');

run './z', @cmd;

输出 ：STDOUT

Running: ('find', '-s', '.', '-maxdepth', '1', '2') 2> ./z

我不知道所以输出（因此 ）变成了：find-sSTDERR./z

find: unknown predicate `-s'