Perl 解析 HTTP Header代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】 Perl 解析 HTTP Header

作者:oschina.net / 发布于2011/3/15/ 1227

<div>!/usr/bin/perl</div>
<div>use Socket;</div>
<div>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: $!";</div>
<div>my $paddr;
my $waitedpid = 0;</div>
<div>sub REAPER {
 $SIG{CHLD} = \&REAPER; # loathe sysV
 $waitedpid = wait;
}
<div>$SIG{CHLD} = \&REAPER;</div>
<div>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";</div>
<div> spawn (sub {
  while(<CLIENT>) {
 print $_;
 }
 });
}
<div>sub spawn {
 my $coderef=shift;</div>
<div> my $pid=fork;
 if ($pid) {
 print "begat $pid";
 return; # i'm the parent
 }
 # else i'm the child -- go spawn</div>
<div> 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();
}

评论列表

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

试试其它关键字

　HTTP　　Header　

同语言下

可能有用的

oschina.net贡献的其它代码(12)