最小的Perl Web服务器代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】最小的Perl Web服务器

作者:瑞 / 发布于2014/11/6/ 782


	#!/usr/bin/perl

	use Socket;
	use Carp;
	use FileHandle;
	#默认使用8080端口，也可以在命令行修改
	$port = (@ARGV ? $ARGV[0] : 8080);

	$proto = getprotobyname('tcp');
	socket(S,PF_INET,SOCK_STREAM,$proto) || die;
	setsockopt(S,SOL_SOCKET,SO_REUSEADDR,pack("l",1)) || die;
	bind(S,sockaddr_in($port,INADDR_ANY)) || die;
	listen(S,SOMAXCONN) || die;

	#显示启动消息
	printf(" <<<程序监听端口:%d>>>\n\n",$port);

	while(1)
	{
	 #等待客户端连接
	 $cport_caddr = accept(C,S);
	 ($cport,$caddr) = sockaddr_in($cport_caddr);
	 C->autoflush(1);
	 #打印连接的客户端信息
	 $cname = gethostbyaddr($caddr,AF_INET);
	 printf(" <<<请求来自于：'%s'>>>\n",$cname);
	 #读取请求信息直到空行
	 while($line = <C>)
	 {
	 print $line;
	 if ($line =~ /^\r/) { last;}
	 }
	 #响应
	 while($line = <STDIN>)
	 {
	 $line =~ s/\r//;
	 $line =~ s/\n//;
	 if ($line =~ /^\./) {last;}
	 print C $line . "\r\n";
	 }
	 close(C);
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　Perl　

同语言下

可能有用的

瑞贡献的其它代码(3)