perl - 无法使用打印写入文件

Question

#!/usr/bin/perl

use strict;
use warnings;

open(my $vmstat, "/usr/bin/vmstat 1 2>&1 |");
open(my $foo, ">", "foo.txt") or die "can't open it for write";

while(<$vmstat>) {
   print "get ouput from vmstat and print it to foo.txt ...\n";
   print $foo $_;
}

当我运行上面的代码时，没有发生任何错误。但是当我按 ctr-c 退出后，foo.txt 中没有任何内容。你们中有人能告诉我为什么会这样吗？提前致谢。

Answer 1

也许输出正在缓冲，而您没有足够的耐心。试试这个额外的代码行:

open(my $foo, ">foo.txt") or die "can't open it for write";
select $foo; $| = 1; select STDOUT;