我用perl创建这个脚本:
#!"c:\strawberry\perl\bin\perl.exe"
use strict;
use LWP::UserAgent;
use HTTP::Request;
my $message = '<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<AddUser xmlns="http://tempuri.org/">
<HostUserName>hcadmin</HostUserName>
<HostPassword>XXXXXXXXX</HostPassword>
<OwnerName>hcadmin</OwnerName>
<PlanName>Unlimited Plan - Windows</PlanName>
<NewUserName>froyland</NewUserName>
<NewUserPassword>XXXXXXX</NewUserPassword>
<EmailAddress>john@hosting.net</EmailAddress>
<ResellerType>Dedicated</ResellerType>
</AddUser>
</soap:Body>
</soap:Envelope>';
my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => 'http://painel.a.nrserver.net:8080/UserManager.asmx');
$request->header(SOAPAction => '"http://tempuri.org/AddUser"');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);
if($response->code == 200) {
print $response->as_string, '\n';
}
else {
print $response->error_as_HTML;
}
现在我打算用python做同样的事情,我看了一些组件,找到了sud,但是不能写像perl这样简单的东西,还没有太多的python经验,你能帮我吗?在
我用suds,pysimplesoap创建了示例脚本,但是它们并没有像我所希望的那样工作,所以我使用urllib2做了一些东西,它工作得非常好。我有问题,因为我的API的url是http://xxxxxx.com:8080/action.asmx,而httplib不能工作。在
不管怎样,谢谢你的回答。在
相关问题 更多 >
编程相关推荐