parse-status.pl

opennms得相关源码 请大家看看

#!@install.perl.bin@

my $output;

{ local $/ = undef; $output  = <>; }

for my $crap (split(/Status\: OpenNMS\:/, $output)) {
	if ($crap =~ /^Name\=(\S+?)\s*\=\s*(\S+?)\s*[\,\]]/) {
		printf('OpenNMS.%-15s: %s' . "\n", $1, lc($2));
	}
}