perl：捕获 STDOUT- 日志文件以二进制结尾答案

【问题标题】：perl: capturing STDOUT- logfile ends up binaryperl：捕获 STDOUT- 日志文件以二进制结尾
【发布时间】：2012-09-07 19:27:46
【问题描述】：

我编写了一个脚本，将数据输入到一个名为 ctffind 的 exe 程序中。 exe 程序将一堆数据输出到我试图在日志文件中捕获的屏幕。

这是我现在正在使用的

my $logout = logfile 
open STDOUT, '>>', "$logout";
open my $PIPE1, '|-', '/opt/ctf/ctffind3_mp.exe' or die $!;

它可以将屏幕上出现的所有内容输出到日志文件中。

如果我more $logfile 文件按预期显示，它大约有 5000 行长，并且有大约 50 行包含字符串“最终值”。在我的下一步中，我执行grep "final values" logfile 它认为日志文件是一个二进制文件并且不起作用而是返回：

Binary file logfile matches

如何设置它以使日志文件正确编码？ ctffind.exe 在运行时也会生成二进制文件，这是问题的一部分吗？

【问题讨论】：

【解决方案1】：

感谢评论者的建议，我找到了两种不同的方法来解决问题：

【讨论】：

【解决方案2】：

文件第一个块中的 Ascii NUL (\000) 足以让 Perl 将文件称为“二进制”文件。

echo "hello world\000" > myfile
perl -E '$f=shift;open $fh,"<",$f or die;say -e $f && -B $f ? "binary":"text"' myfile

【讨论】：

【解决方案3】：

ctffind3_mp.exe 中可能有代码来进行屏幕格式化，例如更改颜色、加粗、清除屏幕等。有几种方法可以消除这些：

【讨论】：