如何在写完文件后立即将缓冲区中内容写入到文件中

xdwjack

大家好，我现在想在文件写入完毕后，立即将缓冲区中的内容写入文件，这样就可以马上对文件进行拷贝等其他的操作了。
我的代码大体上如下：

my $tmp = File::Temp->new();
my $filename = $tmp->filename;
my $workbook = Spreadsheet::WriteExcel->new($tmp);
对$workbook进行各种写入操作。

在这之后我就想立即将缓冲区中的内容写入文件，就像C语言中的flush 函数一样，可是我查了很多资料都没有找到如何解决。大家有办法吗？谢谢！

churchmice

1. 
   
2. $| = 1;
   

复制代码

xdwjack

我在写程序的时候使用了$| = 1，但是执行完对$workbook的写操作之后，我执行了$workbook->close();
后面紧跟着将这个在服务器端生成的文件push到客户端，这个时候，客户端下载的文件大小是0.如果我在$workbook->close();后面加上sleep 10,再将文件push到客户端，这样客户端下载到的文件才是正确的大小。

我想可能在$workboook->close();之后，系统就是做的将缓冲区的内容写入文件，我想用sleep来等之外，是否还有更好的办法。

有些地方说$| = 1;只是将输出到STDOUT中的内容autoflush，那么对于输出文件的就不灵了吧。

不知道我说的是否正确，还请多多指教。谢谢。

churchmice

1. 
   
2. perldoc -f select
   

复制代码

$|这个变量是和对应的文件句柄挂钩的
默认对STDOUT操作
你如果想操作其他文件句柄就要先select，写的tricky一点，比如你想设置$filehadler这一文件句柄的auto flush则

1. 
   
2. select (select ($filehandler),$|=1)[0];
   

复制代码

xdwjack

churchmice,  万分感谢！你要是不说，我还真是没地方查去。