如何解决当没有要读取的内容时,perl can_read返回句柄
| 在下面的代码中,我试图执行一个简单的文件尾操作。假设foo.txt完全为空。我希望第一个can_read()会阻塞,但不会。 sysreadline()中的can_read调用也不会阻塞或等待。相反,发生的情况是,第一个can_read立即将句柄返回到foo.txt,而sysreadline中的第一个can_read执行相同的操作。然后,由于没有要读取的内容,因此sysread不返回任何内容,这会导致sysreadline内部忙于等待。怎么会这样?我知道选择会由于信号或关闭的文件句柄而提前结束,但是我在这里看不到任何机会。实际上,当文本确实在foo.txt中出现(带有换行符)时,就将其打印出来。我不明白为什么没有什么要读取的代码不会像第一个can_read那样无限期地阻塞。除了浪费cpu之外,它还使得无法同时拖尾多个文件,因为您总是会陷入第一次繁忙的等待中。我觉得我必须在这里忽略一些简单的事情... 这是perl 5.8.8
#!/usr/bin/perl -w
use strict;
use IO::Select;
use IO::Handle;
use Symbol qw(qualify_to_ref);
open my $inf,\"<\",\"foo.txt\" or die \"hey! Can\'t open foo.txt!\\n\";
my $sel = IO::Select->new();
$sel->add($inf);
while(my @ready = $sel->can_read()){
foreach my $handle (@ready){
my $line = sysreadline($handle);
print $line;
}
}
##
## deal with buffering for select. from perl cookbook 7.23
sub sysreadline {
my($handle,$timeout) = @_;
$handle = qualify_to_ref($handle,caller( ));
my $infinitely_patient = (@_ == 1 || $timeout new( );
$selector->add($handle);
my $line = \"\";
SLEEP:
until (at_eol($line)) {
unless ($infinitely_patient) {
return $line if time( ) > ($start_time + $timeout);
}
# sleep only 1 second before checking again
next SLEEP unless $selector->can_read(1.0);
INPUT_READY:
while ($selector->can_read(0.0)) {
my $was_blocking = $handle->blocking(0);
CHAR: while (sysread($handle,my $nextbyte,1)) {
$line .= $nextbyte;
##print \"next: [$nextbyte]\\n\";
last CHAR if $nextbyte eq \"\\n\";
}
$handle->blocking($was_blocking);
# if incomplete line,keep trying
next SLEEP unless at_eol($line);
last INPUT_READY;
}
}
return $line;
}
sub at_eol($) { $_[0] =~ /\\n\\z/ }
解决方法
ѭ1”的返回值表示“不会阻止读取(即,永远等待某些外部事件发生)”,而没有“数据可用”。从磁盘读取文件永不阻塞,它在EOF时立即返回0。
因此,使用@TLP建议的File :: Tail可能会更好。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。