[NPWP笔记]非阻塞文件读取

使用非阻塞技术实现行读写。原理是通过判断每次读取的内容中是否包含EOL，如果含有EOL，函数返回本次读取的长度，保存读取的文本内容；如果读取的内容不包含EOL，缓存中的数据进行追加，并同时增加当前的索引值。

因为采用了非阻塞读取，当程序读取中遇到“阻塞错误”时，程序返回0E0，交由上层进行处理，注意此错误与其它IO错误的处理方式不同。

 

行读取代码

package IO::Getline; use strict; use Carp 'croak'; use IO::Handle; use Errno 'EWOULDBLOCK'; use constant READSIZE =>1024; use vars '$AUTOLOAD'; #构造函数，注意对象实例会使用buffer和index两个关键成员标示当前文本内容的读取状态。 #每一次读取，会向buffer中写入数据，同时增减index的值 sub new{ my $pack = shift; my $handle = shift || croak "usage:Readline->new(/$handle)/n"; my $buffer = ''; $handle->blocking(0); my $self = { handle => $handle, buffer => $buffer, index => 0, eof => 0, error => 0, }; return bless $self,$pack; } sub AUTOLOAD{ my $self = shift; my $type = ref($self) or croak "$self is not a object/n"; my $name = $AUTOLOAD; $name =~ s/.*://; eval {$self->{handle}->$name(@_)}; croak $@ if $@; } sub handle{ $_[0]->{handle}; } sub error{ $_[0]->{error}; } sub flush{ my $self = shift; $self->{buffer} = ''; $self->{index} = 0; } #实现了行非阻塞读取功能，每一次调用此函数会检查读取的内容是否包含有换行符，如果有的话，将之前缓存 #中的数据和本次读取到的内容进行合并，并返回整行内容的长度；如果没有换行符，将继续进行读取，并将当前 #缓冲区中的索引进行偏移处理。 #对于错误处理：（1）发生阻塞时，程序返回0E0；（2）发生IO错误时，将当前缓冲区中的内容输出，并置错误码 sub getline{ my $self = shift; return 0 if $self->{eof}; return if $self->{error}; my $i = index($self->{buffer},$/,$self->{index}); if($i < 0){ $self->{index} = length $self->{buffer}; my $rc = sysread($self->{handle}, $self->{buffer}, READSIZE, length $self->{buffer}); #error unless (defined $rc) { return '0E0' if $! == EWOULDBLOCK; $_[0] = $self->{buffer}; $self->{error} = $!; return length $_[0]; } elsif($rc == 0){ $_[0] = $self->{buffer}; $self->{eof}++; return length $_[0]; } $i = index($self->{buffer},$/,$self->{index}); } if($i < 0){ $self->{index} = length $self->{buffer}; return '0E0'; } $_[0] = substr($self->{buffer},0,$i + length($/)); substr($self->{buffer},0,$i + length($/)) = ''; $self->{index} = 0; return length $_[0]; } 1;

测试程序

使用Getline.pm模块时，需要在与测试程序的同一目录下创建IO/Getline.pm文件。

use strict; use warnings; use IO::Getline; use IO::Select; print "can read/n"; my $s = IO::Select->new(/*STDIN); print "can read/n"; my $stdin = IO::Getline->new(/*STDIN); my $data; print "can read/n"; while($s->can_read){ my $rc = $stdin->getline($data) or last; print $data if $rc > 0; } print "can read/n"; die "read error :",$stdin->error if $stdin->error;

这个程序只能够运行在Linux系统平台，windows系统程序自动退出。