代码之家 › 专栏 › 技术社区 › coding_hero

如何将一个文件句柄传递给PerlExpect的日志文件函数?

filehandle expect logging perl

coding_hero · 技术社区 · 14 年前

问这个我觉得很愚蠢,但我试过几件事,我不知道该怎么做。

$object->log_file("filename" | $filehandle | \&coderef | undef)

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

我想把$filehandle传递到日志文件。但是,当我尝试这个的时候:

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 .

我不确定文件处理功能是在函数中承载的,还是我做错了什么。

3 回复 | 直到 14 年前

Chas. Owens 14 年前

LOG \*LOG perldoc perldata

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

$log

strict warnings

CanSpice 14 年前

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

Zaid 14 年前

log_file

Expect documentation

$object->log_file("filename" | $filehandle | \&coderef | undef)

open()

$object->log_file("filename", "w");

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

推荐文章

Niva · 预期错误处理-生成id未打开

7 年前

Chris · 在pexpect中创建交互式选项

7 年前

jberthia · bash脚本中的expect语句用于预期输出的错误验证

7 年前

PiMathCLanguage · 如何在expect程序中为spawn命令编写多行?

7 年前

psingh · 期望正则表达式搜索完整的行或文本

7 年前

GongT · expect:如何将EOF发送到衍生进程

7 年前

samwyse · Expect:如何生成包含反斜杠的命令?

7 年前

Piyush Bhagat · 预期脚本:从ifconfig解析ip地址

7 年前

Piyush Bhagat · 在expect脚本中,grep的输出不保存在expect\u out(缓冲区)中

7 年前

igorkattar · 从预期输出中删除“…[C[0k”

7 年前