程嶏清单 17-7.txt

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

程序清单17-7：disconnect.pl
sub disconnect {
        my $conn = shift;
    my $sock = delete $conn->{sock};
    return unless defined($sock);
        set_event_handler ($sock, "read" => undef, "write" => undef);
    close($sock); undef $!; # Should ideally process errors from close
}
# send_now()函数实现
sub send_now {
        my ($conn, $msg) = @_;
    _enqueue ($conn, $msg);
    $conn->_send (1);  # 1 ==> flush
}