代码之家 › 专栏 › 技术社区 › 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

推荐文章

Abdullah Chaudhry · json文件上的文件旋转和删除

2 年前

Patrick · 即使此时我没有实现日志语句,控制台输出中的错误日志从何而来?

2 年前

twisted · 将apache2 CustomLog管道传输到以其他用户身份运行的程序

3 年前

Max S · 如何从CMD读取日志的所有输出

7 年前

Ivan Denchev · Apache-过去一小时的日志

7 年前

Ev3rlasting · 在Logback[重复]中重写从根目录继承的记录器的附加程序

7 年前

ninja.coder · Log4j中的字符串串联性能

7 年前

Rich · 如何记录日志。是否与操作员一起调试?

7 年前

Matthew Flynn · 在运行Asp的Webapi 2上使用Serilog创建ILogger。净核心2

7 年前

EliteRaceElephant · 为什么ChromeDriver一直记录到控制台?

7 年前