perl http get和post

概述  转载地址：http://mutudumutu.spaces.live.com/blog/cns!495E756F3B5E8D74!135.entry #! /usr/bin/perl -w #www_get.pl #这是学习perl编程的代码 #HTTP协议的GET *** 作 #author: [email protected] #date:2006-03-03 # use strict;  

转载地址：http://mutudumutu.spaces.live.com/blog/cns!495E756F3B5E8D74!135.entry

#! /usr/bin/perl -w #www_get.pl #这是学习perl编程的代码 #http协议的GET *** 作 #author: [email protected] #date:2006-03-03 # use strict; use LWP::UserAgent; my $method = shift || 'GET'; my $server_name = shift || 'localhos'; my $port_number = shift || 80; my $page = shift || 'index.HTML'; my $url = 'http://'. $server_name . ':'. $port_number.'/' . $page; my $request = new http::Request $method => $url; my $useragent = new LWP::UserAgent; my $response = $useragent->request( $request ); print $response->as_string; __END__ ======================================= 下面这个可以提交数据的 #! /usr/bin/perl -w #www_post.pl #这是学习perl编程的代码 #http协议的POST *** 作 #author: [email protected] #date:2006-03-03 # use strict; use LWP::UserAgent; use http::Request::Common; #得到要提交的参数 my $server_name = shift || 'localhost'; my $port_number = shift || '8443'; my $page = shift || 'formtest.do'; my $url = 'https://'. $server_name . ':'. $port_number.'/' . $page; my $useragent = new LWP::UserAgent; my $response = $useragent->request(POST $url,[para1=>'value1',para2=>'value2']); print $response->as_string; __END__ 虽然这两个代码很弱，但是对http的Get和Post都有了，与http的交互可以从这两个代码扩展。

总结

以上是内存溢出为你收集整理的perl http get和post全部内容，希望文章能够帮你解决perl http get和post所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。