返回顶部

收藏

Perl实现HTTP POST请求

更多

perl代码

use HTTP::Request::Common; 
use LWP::UserAgent;
$user_agent = LWP::UserAgent->new;
$request = POST 'http://www.yourserver.com/cgireader.cgi',
    [text1 => 'Hello', text2 => 'there'];
$response = $user_agent->request($request);
print $response->as_string;

cgireader.cgi

#!/usr/local/bin/perl

use CGI;                             

$co = new CGI;                        
print $co->header,                    

$co->start_html(
    -title=>'CGI Example', 
    -author=>'yourName', 
    -BGCOLOR=>'white', 
    -LINK=>'red'
);

if ($co->param()) {
    print 
        "You entered this text: ", 
        $co->em($co->param('text1')), 
        " ",
        $co->em($co->param('text2')), 
        ".";
} else {
    print "Sorry, I did not see any text.";
}

print $co->end_html; 

标签:Perl,CGI,HTTP

收藏

0人收藏

支持

0

反对

0

相关聚客文章
  1. 博主 发表 2014-06-07 16:00:00 配合 avbot 的 HTTP 接口做自动应答的 Perl 脚本
  2. chirs <> 发表 2011-06-01 13:07:05 配置nginx支持CGI程序
  3. 博主 发表 2012-12-15 16:00:00 perl发起HTTP请求时如何设置Host头
  4. 全 恒壮 发表 2011-05-29 11:39:12 判断Keep-Alive模式的HTTP请求的结束
  5. myhere@zhangl.in 发表 2012-04-29 18:16:16 http长轮询&短轮询
  6. hackhp 发表 2013-05-19 07:58:54 HTTP Status 状态码
  7. liker 发表 2013-07-05 02:44:06 Net::HTTP 如何 删除资源
  8. SimonSu 发表 2013-01-25 03:16:08 HTTP状态代码及其含义
  9. Neeke 发表 2013-12-07 14:09:32 刷票——从HTTP代理到数据库
  10. 博主 发表 2011-02-28 16:00:00 CU的perl大赛
  11. 博主 发表 2013-08-13 16:00:00 BeiJing Perl Workshop 2013 参会总结
  12. rming 发表 2014-04-19 07:06:00 Nginx编译安装第三方模块http_substitutions_filter_module

发表评论