【perl】simpleHTTP

类似Python SimpleHTTPServer

#!/usr/bin/perl
# https://metacpan.org/pod/HTTP::Server::Simple
# https://metacpan.org/pod/distribution/CGI/lib/CGI.pod
package WebServer;use strict;
use warnings FATAL => 'all';
use HTTP::Server::Simple::CGI;
use base qw(HTTP::Server::Simple::CGI);
use JSON;sub handle_request {my $self = shift;my $cgi  = shift;my $handler = \&resp_info;print "HTTP/1.0 200 OK\r\n";print $cgi->header(-type    => 'application/json',-status  => '200',);$handler->($cgi);
}sub resp_info {my $cgi  = shift;   # CGI.pm objectreturn if !ref $cgi;# my $who = $cgi->param('name');my %rec_hash = ('path' => $cgi->path_info(),'method' => $cgi->request_method());my $json = encode_json \%rec_hash;print $cgi->param(-name  => 'data',-value => $json,);
};# start the server on port 8080
my $pid = WebServer->new(8080)->run();
# my $pid = WebServer->new(8080)->background();
# print "Use 'kill $pid' to stop server.\n";

posted on 2019-04-23 11:12 poorX 阅读(...) 评论(...) 编辑收藏

转载于:https://www.cnblogs.com/jiangxu67/p/10755247.html

【perl】simpleHTTP相关推荐

【perl】Connect to a MySQL using the Perl DBI module
2019独角兽企业重金招聘Python工程师标准>>> The DBI module itself does not have the ability to communicate ...
【perl】LWP module
2019独角兽企业重金招聘Python工程师标准>>> LWP (short for"Library for World Wide Web in Perl")是一 ...
【 Perl 】三种方式解决” Wide character in print “
1.binmode STDOUT, ":utf8"; 因为程序本身是用utf8编码的(可以用use utf;明示给Perl).这句话就是告诉Perl输出是utf8编码的. 2.us ...
【perl】正则匹配中的括号套括号的套娃抓取规则
前言从上周开始,我忽然有一个疑问,当我在进行正则匹配时,用括号可以抓取匹配上的内容,多个括号可以对应到$1.$2.$3等: 那么问题来了,如果括号进行套娃的话,应该如何用$1.$2.$3捕获呢? 是 ...
【perl】文件测试符
PERL文件测试符操作 -r 文件可以被有效的UID/GID读取 -w 文件可以被有效的UID/GID写入 -x 文件可以被有效的UID/GID执行 -o 文件被有效的UID所有 -R 文件可以被真实 ...
【perl】学习手记（一）--基本类型及运算符
Perl,一种功能丰富的计算机程序语言,运行在超过100种计算机平台上,适用广泛,从大型机到便携设备,从快速原型创建到大规模可扩展开发. [1] Perl最初的设计者为拉里·沃尔(Larry Wal ...
【Perl】二维数组
1 数组与引用 2 声明的区别 3 访问的区别 4 添加行元素 5 添加列元素 6 访问与打印 6.1 运算符优先级 6.2 访问一个 6.3 遍历 7 切片 1 数组与引用此处引用相当于C中的指针 ...
【perl】智能匹配操作符~~
1. 判断某个元素是否在给定的数组中 sub test{if(@array ~~ $value){print "$value was found!\n" ;}else{print ...
计算机要大牛掌握的方法【上】写的很全面，收藏
[HTML/CSS] 理解CSS的定义: 理解HTML基本语法. 掌握大部分浏览器间的差异,可以按一定百分比写出兼容各浏览器的代码: 可以合理规划CSS命名规范,了解CSS的继承关系和作用域: 合理的 ...

【perl】simpleHTTP

【perl】simpleHTTP相关推荐

最新文章

热门文章