代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
Perl 解析 HTTP Header
作者:
oschina.net
/ 发布于
2011/3/15
/
1408
<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
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
oschina.net
贡献的其它代码
(
12
)
.
MySQL数据库每日自动备份的脚本
.
在VIM中使用GOOGLE进行搜索或者翻译
.
快速多线程ping
.
通过 ODBC 连接数据库并创建表
.
创建一个新的 ODBC 数据源
.
列举所有的 ODBC 驱动程序
.
获取 Windows 系统的版本
.
对存储过程表的列及值添加标记,方便修改
.
Socket 客户端获取服务器时间
.
Perl 解析 HTTP Header
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3