- 1
- 2
- 3
- 4
- 5
- 6
- 7
$max_conn = 150;
# ...
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp') ) || LOG_FLUSH && die "socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) || LOG_FLUSH && die "setsockopt: $!";
bind(SERVER, sockaddr_in($port, inet_aton($interface))) || LOG_FLUSH && die "bind: $!";
listen(SERVER,$max_conn) || LOG_FLUSH && die "listen: $!";
Перл от создателя. $max_conn - это якобы должно быть максимальное число дочерних процессов (причем количество child процессов не проверяется). хотя все знаю что должно передаваться как аргумент backlog :)
Комментарии (0) RSS
Добавить комментарий