使用 Perl 输出标准、标准输出到文件和控制台

Question

我正在尝试使用perl进行简单的问卷调查。我想在用户输入时将响应记录在日志文件中。我在将stdin重定向到文件时遇到问题。

下面是我实现的代码。参考这个。

open my $tee, "|-", "tee some_file.out";
print $tee "DO you want to continue?(y/n)\n";
$var=<STDIN>;
$var =~ s/[\n\r\f\t]//g;
if($var eq "y"){
    print $tee "Enter\n";
}
close $tee;

我现在得到的输出是，只有在用户输入后，问题才被打印出来。

#in console
y
DO you want to continue?(y/n)
Enter

#some_file.out
DO you want to continue?(y/n)
Enter

下面是预期的输出：

#in console
DO you want to continue?(y/n)
y
Enter

#some_file.out
DO you want to continue?(y/n)
y
Enter

我还发现了重复的stdin到stdout，但真的无法实现我想要的。我错过了什么吗？！

有更清洁的解决方案吗？

Answer 1

首先，切勿使用短语“将标准定向到...”因为标准输入是输入。它不去任何东西。它来自某个地方。

似乎您所期望的是在您的日志文件中显示$var的副本。由于您从未将$var打印到$tee因此不可能发生。

那么，为什么您认为< code>$var会出现在日志文件中呢？从您向我们展示日志文件副本以及您在终端上看到的副本的方式来看，我猜想您的推理是这样的:

< li > The将所有输出放入日志文件中 < li > The还将所有输出放在终端上 < li >除了进入球座的内容之外，我的程序没有输出任何其他内容 < li >画面内容应该与日志文件相匹配

但是有一个隐藏的假设需要得出结论：

3a。除了我的程序输出之外，没有其他东西被写入终端

这是不正确的部分。当您在程序运行时在终端中键入< kbd>y时，终端本身会回显您键入的内容。它在终端窗口中打印一份拷贝，并且把字符发送到程序的stdin。您在屏幕上看到的< code>y根本不是程序输出的一部分。

由于回显是由终端而不是程序完成的，因此您无法指示它也将副本发送到日志文件。如果要记录它，则需要在此处显式打印它。

您可以要求终端停止回显，然后您负责在输入字符时打印字符，这样用户就可以看到他们在输入什么。如果您想尝试一下，请参阅< code>Term::ReadKey模块。

或者，如果您真正想要的是在程序运行期间终端上出现的所有内容的完整记录，那么您可能应该在标准的unix工具script中运行它，这正是为了这个目的。

（旁注：你知道IO：：Tee模块吗？你可以在没有外部进程的情况下获得teed输出）