如何通過perl腳本向weblogc服務器發送http請求

Question

需要檢查在weblogic上運行的web服務的狀態。 Web服務在後臺運行，並沒有HTML頁面來瀏覽瀏覽器。但它會響應HTTP查詢以及請求類型。

我需要發送請求說，它響應與corrosponding狀態碼。問題是沒有框架或網頁來輸入請求。該請求必須以編程方式發送。這可以使用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"; 
}