程嶏清单 17-12.txt

< linux网络编程工具>>配套源码

程序清单17-12：event_loop.pl
sub event_loop {
        my ($pkg, $loop_count) = @_;
    my ($conn, $r, $w, $rset, $wset);
        while (1) {
            # Quit the loop if no handles left to process
      last unless ($rd_handles->count() || $wt_handles->count());
            ($rset, $wset) =
                IO::Select->select ($rd_handles, $wt_handles, 
                                    undef, undef);
    foreach $r (@$rset) {
                  &{$rd_callbacks{$r}} ($r) if exists $rd_callbacks{$r};
    }
    foreach $w (@$wset) {
                  &{$wt_callbacks{$w}}($w) if exists $wt_callbacks{$w};
    }
            if (defined($loop_count)) {
            last unless --$loop_count;
            }
        }
}