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

Question

需要检查在 weblogic 上运行的 web 服务的状态。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";
}