perl 如何发送http请求

andylei

请教各位高手一个问题，我有一堆http请求如下：

Request:



POST /XXApi/services/ProjectHelper HTTP/1.1

Connection: Keep-Alive

Content-Type: text/xml

Content-Length: 328

Cache-control: no-cache

SOAPAction: "callXXX"

Host: xxx.com:8080

Accept: text/html, */*

Accept-Encoding: identity

User-Agent: Example


<?xml version="1.0"?>

<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlnssd="http://www.w3.org/2001/XMLSchema" xmlnssi="http://www.w3.org/2001/XMLSchema-instance">

<SOAP-ENV:Body>

<calXXX xmlns="http://xxx.com">

<id>888</id>

</calXXX >

</SOAP-ENV:Body>

</SOAP-ENV:Envelope>


请问一下，如何使用perl 直接发送？

odacharlee

去CPAN上找LWP吧

撒哈拉里的鱼

他这个是在访问WebService，去用WebService方面的模块吧，不用自己POST

chinatzbcn

my $url = "http://www.baidu.com";
       
my $ua = LWP::UserAgent->new();
my $req = GET $url;
my $page_str= $ua->request($req)->as_string;

这个是GET方法

返回的请求是一串字符串(HTML CODE)

尝试把发送东西做为URL的参数。但是你的好象是直接发包的吧.

[ 本帖最后由 chinatzbcn 于 2008-12-30 08:37 编辑 ]

fangdingj

我也一直在找怎样发个XML文件内容到服务器上去，POST 去的数据都是这样的 user=aaa&passs=asdff&login=1