如果您在支持的操作系统上运行，则可能会影响缓冲
setvbuf。请参阅的文档
IO::Handle。
如果您使用的是Perl
v5.10或更高版本，则无需
IO::Handle按照文档中的说明显式创建对象，因为
IO::Handle自该版本发布以来，所有文件句柄都隐式地添加到对象中。
use 5.010;use strict;use warnings;use autodie;use IO::Handle '_IOLBF';open my $handle, '<:utf8', 'foo';my $buffer;$handle->setvbuf($buffer, _IOLBF, 0x10000);while ( my $line = <$handle> ) { ...}
