Question

需要检查weblogic上运行的webservice的状态。 Web服务在后台运行，虽然浏览器没有HTML页面。但是它会响应HTTP查询以及请求类型。

我需要发送请求，并且它会响应相应的状态代码。问题是没有框架或网页来键入请求。请求必须以编程方式发送。可以使用perl完成吗？

我尝试使用LWP模块，但无法获得所需的结果，

#!/usr/bin/perl
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$PARAM = "<HealthCheck>" ;

my $req = (POST '[http://host_name:8080/service]' ["xmlString" => $PARAM]);
$request = $ua->request($req); 
$content = $request->content; 

print $content; 
exit;

请帮忙。

...问候

Answer 1

当然，有可能，只需更改语法：

#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $PARAM = "<HealthCheck>" ;

my $response = $ua->post('http://host_name:8080/service', {'xmlString' => $PARAM}); 
if( $response->is_success ) {
   print $response->decoded_content;
}
else {
   print STDERR $response->status_line, "\n";
}

如何通过perl脚本向weblogic服务器发送http请求

1 个答案: