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是一种广泛使用的脚本语言，以其强大的文本处理能力和灵活的语法结构而闻名。本文旨在详细介绍如何在特定环境下（如Genesis系统）配置Perl...
通过"神奇的Perl-最佳PERL入门教程"，你将学习到如何声明和使用Perl变量，理解引用和数组的概念，以及如何编写子程序。同时，书中的示例代码将帮助你实践这些理论知识，从而巩固学习成果。 "CGI编程_使用Perl(jb51...
### 使用Perl进行查找和替换详解 #### 一、概述 在IT行业中，Perl作为一种功能强大的脚本语言，常被用于文本处理与系统管理任务。本文将深入探讨如何使用Perl进行高效的查找与替换操作，这对于日常的数据处理工作...
jmap-perl 是 JMAP 代理服务器的 Perl 实现，Perl JMAP 后端可以与 IMAP 和 SMTP 服务器通许，允许在邮件系统上替换 JMAP 接口。为了高效，初始化实现要求所有服务器支持 CONDSTORE 扩展(RFC4551/FRC7162)。提供一个...
标题 "PERL编写的服务器响应时间（ping）测试" 涉及到的是使用Perl编程语言来实现一个功能，该功能可以测量服务器的响应时间，并将结果以图形化的HTML文件展示出来。Perl是一种通用的、解释型的脚本语言，特别适合...
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...
对学习使用Perl操作文件时写的，在开始学习对Perl文件操作时，使用了$_,导致调试了很长时间，现在改正后做笔记到此
### 使用Perl实现系统管理自动化（第二版）的关键知识点 #### 一、管理用户账户 - **用户账户管理**: Perl提供了一系列强大的工具和技术来管理和维护系统中的用户账户。这些功能包括但不限于添加新用户、修改现有...
然后，使用 Perl 的文件处理函数 open 关闭输入文件和输出文件，并使用输入记录分隔符来读取 FASTA 文件中的序列数据。最后，使用 length 函数计算每条序列的长度，并将结果输出到输出文件中。 知识点： * Perl ...
7. **模块化开发**：mod_perl支持使用Perl模块来扩展其功能，如Apache::DBI用于数据库访问，Apache::Cookie用于处理cookies等，这些模块大大简化了Web应用程序的开发。 8. **Apache配置**：mod_perl允许用Perl编写...
本文将详细介绍如何使用Perl对策来有效地进行HTML转义，以防止XSS攻击。 Perl是一种由Larry Wall设计的高级编程语言，具有C语言的强大力量和灵活性，同时具备awk、sed等脚本语言的便捷性。Perl的灵活性使其成为多...
Perl 6 是 Perl 语言的一个重大升级版本，它在语法、性能和功能上都有显著的改进。本技术参考手册深入探讨了Perl 6的核心概念，包括语法特性、文件操作、集合处理、数据库交互以及实际应用案例，旨在为开发者提供...
### Web应用安全：使用Perl的对策进行HTML转义的方法 #### 实验背景及目标 随着互联网技术的发展，Web应用程序已经成为日常生活中不可或缺的一部分。然而，这也伴随着各种网络安全问题，尤其是跨站脚本攻击（Cross...
* Perl语言的语法灵活，可以使用各种符号和操作符来实现不同的功能。 * Perl语言支持正则表达式，可以对字符串进行复杂的匹配和处理。 Perl语言的基本知识点： * Perl语言的变量：Perl语言的变量可以是标量、数组...
总结来说，使用 Emacs 进行 Perl 编程需要了解和配置 `cperl-mode`、`ido-mode`、`comment-dwim`、`hippie-expand` 和 `dabbrev-expand` 等功能。通过合理定制 `.emacs` 文件，结合 PDE 的功能，初学者可以快速适应...
标题提到的"perl(windows环境)"表明我们将讨论如何在Windows操作系统上安装和使用Perl。 在Windows上运行Perl，通常需要下载并安装一个专门针对该平台的发行版。描述中提到的“达尔文流媒体服务器”可能依赖于Perl...
1. **Perl 版本选择**：首先确定所使用的 Perl 版本，推荐使用 Perl 5.8.8 或者更高版本（例如 Perl 5.10）。需要注意的是，虽然 Perl 5.8.8 已经可以很好地支持多个平台，但如果是用于 Windows 平台，则建议使用 ...
3. **导入模块**：在Perl脚本中，使用`use`或`require`语句引入模块。例如： ```perl use LPERL_ADD; ``` 4. **使用模块**：调用模块中定义的函数或方法。例如： ```perl LPERL_ADD::function_name(); ``` ...
Apache、PHP、MySQL和Perl是构建互联网服务器应用的四个关键组件，它们共同构成了一个强大的开源Web服务环境。这里我们将深入探讨这些技术以及如何在Windows环境下安装和配置"Apache+PHP+MySQL+Perl服务器套件 v...
对于Perl开发者而言，了解如何使用libperl.so来动态链接Perl库对于编写C或C++的Perl扩展模块至关重要。OpenSSH的使用则涉及到了网络安全，比如如何设置SSH服务器以确保数据安全传输，理解公钥认证、密钥管理以及如何...