32 lines
1.4 KiB
Perl
32 lines
1.4 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use JMX::Jmx4Perl;
|
|
use JMX::Jmx4Perl::Request;
|
|
use JMX::Jmx4Perl::Alias;
|
|
use Data::Dumper;
|
|
use Time::HiRes qw(gettimeofday tv_interval);
|
|
my $jmx = new JMX::Jmx4Perl(url => "http://localhost:8888/jolokia-proxy",
|
|
target => {
|
|
url => "service:jmx:rmi:///jndi/rmi://bhut:9999/jmxrmi",
|
|
env => {
|
|
user => "monitorRole",
|
|
password => "consol",
|
|
}
|
|
}
|
|
);
|
|
my $req1 = new JMX::Jmx4Perl::Request(READ,{
|
|
mbean => "java.lang:type=Memory",
|
|
attribute => "HeapMemoryUsage",
|
|
}
|
|
);
|
|
my $req2 = new JMX::Jmx4Perl::Request(LIST);
|
|
my $req3 = new JMX::Jmx4Perl::Request(READ,{
|
|
mbean => "jboss.system:type=ServerInfo",
|
|
attribute => "HostAddress"
|
|
}
|
|
);
|
|
my $t0 = [gettimeofday];
|
|
my @resp = $jmx->request($req3);
|
|
print "Duration: ",tv_interval($t0,[gettimeofday]),"\n";
|
|
print Dumper(@resp);
|