📄 程嶏清单 17-9.txt
字号:
程序清单17-9:new_client.pl
sub _new_client {
my $sock = $main_socket->accept();
my $conn = bless {
'sock' => $sock,
'state' => 'connected'
}, $g_pkg;
my $rcvd_notification_proc = &$g_login_proc ($conn);
if ($rcvd_notification_proc) {
$conn->{rcvd_notification_proc} = $rcvd_notification_proc;
my $callback = sub {_rcv($conn)};
set_event_handler ($sock, "read" => $callback);
} else { # Login failed
$conn->disconnect();
}
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -