Как вывести дамп стека (вывод 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();