Jmx4Perl 为 Perl 语言提供了用来访问 Java 企业版基于 JMX 的管理接口的方法。它需要在 Java 应用中安装一个大约 30k 的代理接口,提供基于 HTTP/JSON 的访问 JMX MBeans 的方法。
示例代码:
my $jmx = new JMX::Jmx4Perl(url => "http://localhost:8080/j4p-agent"); my $request = new JMX::Jmx4Perl::Request(type => READ_ATTRIBUTE, mbean => "java.lang:type=Memory", attribute => "HeapMemoryUsage", path => "used"); my $response = $jmx->request($request); print "Memory used: ",$response->value(),"\n";