如何重定向 Perl 的 IO：：Socket：：SSL qw(debug4) 生成的消息？

Question

我希望能够在发生错误时跟踪错误。到目前为止，我在终端中显示了 qw(debug4( 生成的日志，但我想将它们保存到数组中，也许保存到文件中。

这就是我定义日志生成的方式：

use IO::Socket::SSL qw(debug4);

还有一些日志示例：

DEBUG: .../IO/Socket/SSL.pm:692: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:694: socket connected
DEBUG: .../IO/Socket/SSL.pm:717: ssl handshake not started

Answer 1

下面是如何将 STDERR 重定向到变量的示例：

use feature qw(say);
use strict;
use warnings;
use IO::Socket::SSL qw(debug4);
my $stderr;
close STDERR;
open(STDERR, ">", $stderr ) or die "Can't reopen STDERR: $!";
my $cl = IO::Socket::SSL->new('www.google.com:443');
print $cl "GET / HTTP/1.0rnrn";
say $stderr;