Perl什么情况下需要使用$|=1清除缓存

oracle_sky

如题，请教各位大神，我经常看到一些Perl的书籍中有例子设置$|=1,这个意思我查询了资料就是$|值在非零时对当前选定的文件执行写或者打印操作后强制清除缓冲区。
我看过两种情况使用这个东东：我的问题是我们为什么要这么做，另外还有多少种情况下我们需要这么做，希望有大神给出一个比较全的回答，多谢了！
1、在磁盘坏块时需要手动递归检查数据是否被损坏。
2、在文件句柄中打开过滤器时，比如
#!/usr/bin/perl
$|=1;
$tmpfile="temp";
open(DB,"data.txt") or die "Can't open the file: $!\n";
open(SAVED,">&STDOUT") or die "$!\n";
open(STDOUT,">$tmpfile") or die "Can't open: $!\n";
open(SORT,"|sort +1") or die;

print SORT while(<DB>);
close SORT;

open(STDOUT,">&SAVED") or die "Can't open: $!\n";
print "Here wo are printing to the screen again.\n";

rename("temp","data.txt");

blackold

回复 1# oracle_sky


    当你想马上输出就需要它啊。

oracle_sky

能否详细点呢，多谢！回复 2# blackold


   

seufy88

autoflush output
如果$|=1,则是无buffer输出。

stanley_tam

例如你写入文件一行 print {$file_handler} "something"
这个时候你打开文件去看，something是不会在里面的。估计得close $file_handler才会写入。
要是$|=1的话，文件会立马写入。

oracle_sky

回复 5# stanley_tam


    我测试了下，发现和你说的不太相符，不知道是否是我理解有误。
>more test.pl
#!/usr/bin/perl
$|=1；
open(DB,">data") or die "Can't open: $!\n";

print DB "This is a test!\n";

sleep 100;

>./test.pl &
>date
Thu Jul 25 12:05:57 CST 2013
>date
Thu Jul 25 12:06:20 CST 2013
>more data
啥都没有，说明并没有立即写入，还得和原来一样必须close 掉文件句柄或者程序运行结束后才会写入。

stanley_tam

额。偶错了，那个file handler应该是一个pipe 或者 socket回复 6# oracle_sky


   

stanley_tam

这帖子有你要的例子http://bbs.chinaunix.net/thread-4092267-1-1.html

zk1878

回复 6# oracle_sky

要先调用select才可以的

open F, '>', 'test.txt';
select F;
$| = 1;
#write file
close F: