如何将文件句柄传递给 Perl Expect 的 log_file 函数？

Question

我觉得问这个问题很愚蠢，但我已经尝试了几件事，但我不知道该去哪里。

来自 Expect.pm 文档：

$object->log_file("文件名" | $filehandle | \&coderef | undef)

将会话记录到文件中。所有发送至或接收自的字符 生成的进程被写入文件。

我想将 $filehandle 传递给 log_file。但是，当我尝试这样做时：

open (LOG, ">>" .$opt{l});
my $sess = Expect->spawn("telnet $ip");
$sess->log_file(LOG)

我在运行脚本的目录中得到一个名为“LOG”的文件。经过一番调查，我尝试了以下操作：

open (LOG, ">>" .$opt{l});
my $sess = Expect->spawn("telnet $ip");
my $fh = *LOG;
$sess->log_file($fh)

现在，我在目录中得到一个名为 *main::LOG 的文件。我还有另一个文件，其名称为我在 -l 选项中指定的名称，但它只包含我发送到 print LOG 的行。

我不确定文件处理功能是否包含在该函数中，或者我是否做错了什么。

Answer 1

如果您有一个名为 LOG 的裸字文件句柄，则可以通过说 \*LOG 将其传递给函数（您可以在 perldoc perldata)，但不要这样做。裸字文件句柄是一种非常古老的样式，不应再使用。尝试使用词法文件句柄和 open 的三个参数版本：

open my $log, ">>", $opt{l}
    or die "could not open $opt{l}: $!";

您可以在过去使用过 LOG 的任何地方使用 $log 。

您还应该使用 strict 和 警告 编译指示。

Answer 2

尝试使用词法文件句柄（以及三参数 open 和 die）作为开头：

open my $logfh, ">>", $opt{l} or die "Could not open log file $opt{l}: $!\n";
$sess->log_file( $logfh );

LOG 非常通用，可能会被超越（或胜过）代码中某处的另一个文件句柄。使用词法文件句柄有助于防止混淆。并且您应该始终检查 open() （或 use autodie）的返回状态，以防您实际上无法打开该文件。

Answer 3

使用 log_file 传递文件名来返回文件句柄可能是一个更好的主意。

---

来自期望文档：

$object->log_file("文件名" | $filehandle | \&coderef | undef)

将会话记录到文件中。所有角色
发送到生成的或从生成的接收的
进程被写入文件。
通常附加到日志文件中，但是
你可以传递一个附加模式“w”
在 open() 时截断文件：

$object->log_file("文件名", "w");

返回日志文件句柄。

因此，您应该能够使用以下方法实现相同的功能：

my $sess = Expect->spawn("telnet $ip");
$sess->log_file($opt{l});               # Or my $fh = $sess->log_file...
                                        # if that filehandle is needed

现在您的所有会话活动都将记录到文件中。追加模式是默认模式。