Perl 解析 HTTP Header

概述Perl 解析 HTTP Header

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

#!/usr/bin/perluse Socket;my $proto = getprotobyname('tcp');socket(Server,PF_INET,SOCK_STREAM,$proto) || dIE "socket: $!";setsockopt(Server,Sol_SOCKET,SO_REUSEADDR,pack("l",1)) || dIE "setsocketopt: $!";bind(Server,sockaddr_in(6799,INADDR_ANY)) || dIE "bind: $!";Listen(Server,SOMAXCONN) || dIE "Listen: $!";my $paddr;my $waitedpID = 0;sub REAPER {    $SIG{CHLD} = \&REAPER;  # loathe sysV    $waitedpID = wait;}$SIG{CHLD} = \&REAPER;for ($waitedpID = 0; ($paddr=accept(ClIEnt,Server)) || $waitedpID; $waitedpID = 0,close ClIEnt) {       next if $waitedpID;       my($port,$iaddr) = sockaddr_in($paddr);       my $name = gethostbyaddr($iaddr,AF_INET);       print "Connection from: $name";       spawn (sub {       	  while(<CLIENT>) {         	print $_;          }       });}sub spawn {  my $coderef=shift;  my $pID=fork;  if ($pID) {     print "begat $pID";     return; # i'm the parent  }  # else i'm the child -- go spawn  open(CLIENT,"<&ClIEnt")   || dIE "can't dup clIEnt to stdin";  open(CLOUT,">&ClIEnt")   || dIE "can't dup clIEnt to stdout"; ## open(STDERR,">&STDOUT") || dIE "can't dup stdout to stderr"; exit &$coderef();}

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的Perl 解析 HTTP Header全部内容，希望文章能够帮你解决Perl 解析 HTTP Header所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。