Hi Folks,
I created a Perl script to do a wget on an URL.
Script's output is like the following -
{
"_exp" = "81652254";
"apps" = {
"AcctInfoapps" = "
http://spaceqa3-svc.corp.zaphida.com:7322/cgi-bin/jboss/OrderManagementapps-MEA.joa/accountInfo";
"StatContentapps" = "
http://egq3-wsf-5001.corp.zaphida.com:8531/service/staticcontent";
"ContappsB2B" = "
http://spaceqa3-svc.corp.zaphida.com:9203/jboss/apps.joa/content";
"CommQandAStatisticapps" = "
http://spaceqa3-svc.corp.zaphida.com:8546/service/qastats";
"SerialNberapps" = "
http://spaceqa3-svc.corp.zaphida.com:8341/jboss/apps.joa/serial";
};
}
What I need is the following -
1)is to store the output to an array and parse out http://...:port (e.g. -
http://spaceqa3-svc.corp.zaphida.com:8341/) and the appname (e.g. SerialNberapps )
and store in scalar.
2)Then append the uri cgi-bin/jboss/apps.joa/health?method=checkurl to each of the urls (from 1)
3) echo appname and again run wget against each url from 2.
Here is the script that I created -
#!/usr/bin/perl -w
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0");
$req = HTTP::Request->new(GET => '
http://apps.zaphida.com:8501/jboss/Service.woa/mea?method=getServices');$req->header('Accept' => 'text');
$res = $ua->request($req);
if ($res->is_success) {
print $res->decoded_content;
}
else {
print "Error: ". $res->status_line."\n";
}
