📄 程嶏清单 17-7.txt
字号:
程序清单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
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -