weblogc 서버에 perl 스크립트를 통해 http 요청을 보내는 방법

Question

weblogic에서 실행중인 webservice의 상태를 확인해야합니다. 웹 서비스는 백그라운드에서 실행되며 브라우저가 있지만 HTML 페이지가 없습니다. 그러나 요청 유형과 함께 HTTP 쿼리에 응답합니다.

요청을 보내야하고 부식되는 상태 코드로 응답해야합니다. 문제는 요청을 입력 할 프레임이나 웹 페이지가 없다는 것입니다. 프로그래밍 방식으로 요청을 보내야합니다. perl을 사용하여이 작업을 수행 할 수 있습니까?

나는

#!/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; 

도와주세요, LWP 모듈을 사용하여 시도했지만 원하는 결과를 얻을 수 couldnt한다.

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"; 
}