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: [e-mail]
#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: [e-mail]
#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的交互可以从这两个代码扩展。