CTM
(
W/WE/WEEBLE/CTM-0.181.tar.gz, WEEBLE, 2014;
MetaCPAN
)
OBJET : Exemple d'utilisation de CTM::ReadEM : simple recuperation des services du BIM au format JSON
# APPLICATION : ControlM
# AUTEUR : Yoann Le Garff
# DATE DE CREATION : 20/07/2014
#-------------
use warnings;
use strict;
use Getopt::Long;
use File::Basename qw/basename/;
use Try::Tiny;
use JSON;
use CTM::ReadEM 0.181, qw/:all/;
#----> ** fonctions **
sub usage() {
return 'Aide : perld
service_name => sub {
shift =~ $opts{f}
}
});
}
print JSON->new()->utf8()->pretty()->encode($servicesObj->getItems()) . "\n";
} else {
die $err;
}
exit