(一个多进程的TCP 服务器)谁能详细讲解下？
时间：2010-12-16
来源：互联网
简介：一个多进程的TCP 服务器，sample中实现了daytime的功能
复制代码
- #!/usr/bin/perl -w
- # tcp_socket_dt_srv.pl
- use strict;
- use Socket;
- use IO::Handle;
- use POSIX qw(WNOHANG);
-
- my $port = $ARGV[0] || '3000';
- my $proto = getprotobyname('tcp');
-
- $SIG{'CHLD'} = sub {
- while((my $pid = waitpid(-1, WNOHANG)) >0) {
- print "Reaped child $pid\n";
- }
- };
-
- socket(SOCK, AF_INET, SOCK_STREAM, getprotobyname('tcp'))
- or die "socket() failed: $!";
- setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1)
- or die "Can't set SO_REUSADDR: $!" ;
-
- my $my_addr = sockaddr_in($port,INADDR_ANY);
- bind(SOCK,$my_addr) or die "bind() failed: $!";
- listen(SOCK,SOMAXCONN) or die "listen() failed: $!";
-
- warn "Starting server on port $port...\n";
-
- while (1) {
- next unless my $remote_addr = accept(SESSION,SOCK);
- defined(my $pid=fork) or die "Can't fork: $!\n";
-
- if($pid==0) {
- my ($port,$hisaddr) = sockaddr_in($remote_addr);
- warn "Connection from [",inet_ntoa($hisaddr),",$port]\n";
- SESSION->autoflush(1);
- print SESSION (my $s = localtime);
- warn "Connection from [",inet_ntoa($hisaddr),",$port] finished\n";
- close SESSION;
- exit 0;
- }else {
- print "Forking child $pid\n";
- }
- }
-
- close SOCK;
作者: ccc77 发布时间: 2010-12-16
（1）一个基础的socket程序，没太多讲的，自己看network programming with perl.
（2）这里fork并不是最好的方式，用IO::Select更佳。
（3）使用IO::Socket::INET更简洁易维护。
（2）这里fork并不是最好的方式，用IO::Select更佳。
（3）使用IO::Socket::INET更简洁易维护。
作者: 兰花仙子 发布时间: 2010-12-16
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
