Forum Discussion

Christian_Laute's avatar
Christian_Laute
Icon for Nimbostratus rankNimbostratus
May 02, 2017

Using variables in external Perl monitor

Gents, I currently use a external monitor to check the JSON output of some webservices. Now I try to make it a little bit more flexible. For example I want to try to replace the string "UP" at if(...
application delivery
external monitor
iRules
LTM
Niels_van_Sluis's avatar
Niels_van_Sluis
Icon for MVP rankMVP
May 02, 2017

Try:

!/usr/bin/env perl 
use LWP::Simple;
use JSON;

$URI = $ARGV[2];
$HOSTNAME = $ARGV[0];
$HOSTNAME =~ s/::ffff://;
$PORT=$ARGV[1];

$contents = get("http://$HOSTNAME:$PORT$URI");
$json = decode_json($contents);
$status = $json->{'status'};
$statusmsg =  $ENV{'statusmsg'};
if($status eq $statusmsg) {
    print $status;
}

Also take a look at this:

http://alvinalexander.com/perl/edu/articles/pl020002