Accept 惊群现象测试perl脚本
$uname -a
Linux debian-11-34 3.16.0-4-amd64 #1 SMP Debian 3.16.7-ckt9-3~deb8u1 (2015-04-24) x86_64 GNU/Linux
经过测试Debina 8.0 已经解决了Aceept thundering herd
# 1) run this script with either "accept" or "select-accept" as the argument
# (the script listens to 127.0.0.1:12345)
# 2) telnet localhost 12345
# 3) if you see "accept failed", there is the thundering herd problem
#
#
use strict;
use warnings;
use IO::Socket::INET;
my $mode = $ARGV[0] || '';
if ($mode !~ /^(accept|select-accept)$/) {
die "Usage: $0 <accept|select-accept>\n";
}
my $listener = IO::Socket::INET->new(
Listen => 5,
LocalPort => 12345,
LocalAddr => '127.0.0.1',
Proto => 'tcp',
ReuseAddr => 1,
) or die "failed to listen to port 127.0.0.1:12345:$!";
if ($mode eq 'select-accept') {
$listener->blocking(0)
or die "failed to set listening socket to non-blocking mode:$!";
}
my $pid = fork;
die "fork failed:$!"
unless defined $pid;
while (1) {
if ($mode eq 'select-accept') {
while (1) {
my $rfds = '';
vec($rfds, fileno($listener), 1) = 1;
if (select($rfds, undef, undef, undef) >= 1) {
last;
}
}
}
my $conn = $listener->accept;
if ($conn) {
warn "connected!";
$conn->close;
} else {
warn "accept failed:$!";
}
# (the script listens to 127.0.0.1:12345)
# 2) telnet localhost 12345
# 3) if you see "accept failed", there is the thundering herd problem
#
#
use strict;
use warnings;
use IO::Socket::INET;
my $mode = $ARGV[0] || '';
if ($mode !~ /^(accept|select-accept)$/) {
die "Usage: $0 <accept|select-accept>\n";
}
my $listener = IO::Socket::INET->new(
Listen => 5,
LocalPort => 12345,
LocalAddr => '127.0.0.1',
Proto => 'tcp',
ReuseAddr => 1,
) or die "failed to listen to port 127.0.0.1:12345:$!";
if ($mode eq 'select-accept') {
$listener->blocking(0)
or die "failed to set listening socket to non-blocking mode:$!";
}
my $pid = fork;
die "fork failed:$!"
unless defined $pid;
while (1) {
if ($mode eq 'select-accept') {
while (1) {
my $rfds = '';
vec($rfds, fileno($listener), 1) = 1;
if (select($rfds, undef, undef, undef) >= 1) {
last;
}
}
}
my $conn = $listener->accept;
if ($conn) {
warn "connected!";
$conn->close;
} else {
warn "accept failed:$!";
}
}
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· 周边上新:园子的第一款马克杯温暖上架
· Open-Sora 2.0 重磅开源!
· 分享 3 个 .NET 开源的文件压缩处理库,助力快速实现文件压缩解压功能!
· Ollama——大语言模型本地部署的极速利器
· DeepSeek如何颠覆传统软件测试?测试工程师会被淘汰吗?