在下面的代码中,我试图执行一个简单的文件尾操作。假设foo.txt完全为空。我希望第一个can_read()会阻塞,但事实并非如此。 can_read也不会在sysreadline()块中调用或者等待。相反,第一个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/ }
答案 0 :(得分:7)
从select
返回意味着“读取不会阻塞(即永远等待某些外部事件发生)”,而不是“数据可用”。从磁盘读取文件永远不会阻塞,它会在EOF时立即返回0。
所以@TLP建议的File::Tail可能会更好。