0

weblogic で実行されている Web サービスのステータスを確認する必要があります。Web サービスはバックグラウンドで実行され、ブラウザーを介して起動する HTML ページがありません。ただし、リクエスト タイプとともに HTTP クエリに応答します。

リクエストを送信する必要があり、対応するステータス コードで応答します。問題は、リクエストを入力するためのフレームまたは Web ページがないことです。リクエストはプログラムで送信する必要があります。これは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;

助けてください。

よろしく...

4

1 に答える 1

0

もちろん、構文を変更するだけで可能です。

#!/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";
}
于 2013-04-07T08:40:46.030 に答える