当没有东西要读时,perl can_read返回句柄

概述在下面的代码中,我试图执行一个简单的文件尾 *** 作.假设foo.txt完全为空.我希望第一个can_read()会阻塞,但事实并非如此. can_read也不会在sysreadline()块中调用或者等待.相反,第一个can_read立即将句柄返回到foo.txt,而sysreadline中的第一个can_read也是如此.然后sysread什么也不返回,因为没有什么可读的,这导致在sysreadli @H_403_2@ 在下面的代码中,我试图执行一个简单的文件尾 *** 作.假设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 -wuse 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.23sub 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/ }

解决方法 select的返回意味着“read不会阻塞(即永远等待某些外部事件发生)”,而不是“数据可用”.从磁盘读取文件永远不会阻塞,它会在EOF时立即返回0.

所以你可能会更好地使用@TLP建议的File::Tail.

@H_403_2@ 总结

以上是内存溢出为你收集整理的当没有东西要读时,perl can_read返回句柄全部内容，希望文章能够帮你解决当没有东西要读时,perl can_read返回句柄所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。