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

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

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

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

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


[Copy to clipboard] [ - ]
CODE:
$| = 1;

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

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

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

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


[Copy to clipboard] [ - ]
CODE:
perldoc -f select

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

[Copy to clipboard] [ - ]
CODE:
select (select ($filehandler),$|=1)[0];

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