HTTP::Deamon是Perl中一个小server模块,我们可以使用此模块来组建一个处理HTTP的代理服务器。
一下是部分代码:
package Proxy;
use HTTP::Daemon;
use HTTP::Status;
use HTTP::Request;
use HTTP::Response;
my %setting = ( Localport => 8001);
my $deamon;
=cut
Constructor for proxy
=cut
sub new {
&_init_deamon;
my $this = {};
bless $this;
return $this;
}
=cut
Init the deamon ....
=cut
sub _init_deamon {
print "init the deamon....\n";
$deamon = HTTP::Daemon->new( LocalPort => $setting{Localport} );
}
=cut
Startup the proxy
=cut
sub start {
print "Startup the proxy...\n";
print "Please contact me at: <URL:", $deamon->url, ">\n";
while ( my $c = $deamon->accept ) {
while ( my $r = $c->get_request ) {
print $r->as_string;
#$c->send_header( Content_type => "text/html" );
#$c->send_response(content=>"this is a content");
my $res = HTTP::Response->new;
my $content = qq{
<html>
<head><title>this is a title</title></head>
<body><h1>sssss</h1></body>
</html>
};
$res->add_content($content);
$c->send_response($res);
}
$c->close;
undef($c);
}
}
=cut
Push the filter method into.
=cut
sub pushFilter {
print "filter";
}
1;
分享到:
相关推荐
在Genesis中使用Perl的配置。
神奇的perl-最佳PERL入门教程与CGI编程_使用Perl的PDF版本,入门perl很好的资料
使用perl进行查找和替换.pdf使用perl进行查找和替换.pdf
jmap-perl 是 JMAP 代理服务器的 Perl 实现,Perl JMAP 后端可以与 IMAP 和 SMTP 服务器通许,允许在邮件系统上替换 JMAP 接口。为了高效,初始化实现要求所有服务器支持 CONDSTORE 扩展(RFC4551/FRC7162)。提供一个...
perl脚本perl脚本perl脚本perl脚本
对学习使用Perl操作文件时写的,在开始学习对Perl文件操作时,使用了$_,导致调试了很长时间,现在改正后做笔记到此
使用Perl对策进行HTML转义 1 Perl 2 Perl转义对策 3 Perl对策转义XSS实例演示 目录 Perl Perl,一种功能丰富的计算机程序语言,运行在超过100种计算机平台上,适用广泛,从大型机到便携设备,从快速原型创建到大规模...
使用perl进行面向对象编程。只含有包、模块以及类的内容,共两章
使用Perl的对策进行HTML转义的方法 一、实验目的 了解XSS的有关知识; 了解XSS防御的有关知识; 了解Perl语言的有关知识; 掌握使用Perl语言对HTML转义,实现XSS防御。 二、实验内容 安装Perl语言环境; 搭建Apache ...
《使用perl实现系统管理自动化.第二版(中文版)》不仅提供了可用于工作的恰当工具,还给出了许多建议,帮助你解决特定问题以及安全地自动处理重复事务。 这一版的“水獭书”经过更新和扩充,涵盖了最新的操作系统、...
PERL编写的TCP服务器与客户端,很简单,一看就懂。
Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0...
Inline-Perl5, 在 Perl 6程序中,使用 Perl 5代码 标题Inline::Perl5 概要 use Inline::Perl5; use DBI:from<Perl5>; my $dbh = DBI.connect('dbi:Pg:database=t
其包含了包括有 Perl for Win32、Perl for ISAPI、PerlScript、Perl Package Manager四套开发工具程序,可以让用户编写出适用于unix,windows,linux系统的CGI程序来。 CGI(Common Gateway Interface)公共网关...
使用perl替换文本中的字符,直接对原文件进行修改,不会产生临时文件
windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ...
pureproxy-Pure Perl HTTP代理服务器 概要 pureproxy --host=0.0.0.0 --port=5000 --workers=10 --server Starlight pureproxy --traffic-log=traffic.log --traffic-log-body-eol='|' pureproxy --access-log=...
CGI编程使用Perl
草莓perl安装包下载,新版本 Strawberry Perl是用于MS Windows的perl环境,其中包含运行和开发perl应用程序所需的一切。 它被设计为尽可能接近UNIX系统上的perl环境。 它包括perl二进制文件,编译器(gcc)+相关...
使用 Emacs 进行 Perl 编程 this is for beginner.