如何通過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";
}