如何将堆栈跟踪(Carp输出)转储到Perl中的文件？

Question

我希望将Carp的输出转储到perl的文件句柄中，而不是转储到stderr中。

文件句柄已打开。

做这件事最简单的方法是什么？

示例：

use strict;
use warnings;
use FileHandle;
use Carp;

my $fh = new FileHandle("log", "w") || croak "could not write 'log'";
# stuff happens
print $fh carp("stack trace");
close($fh);

该示例将把"1“输出到日志中，因为这是carp的返回值。

Answer 1

print $fh "stack trace";
print $fh Carp::longmess();