parse-status.pl

来自「opennms得相关源码 请大家看看」· PL 代码 · 共 12 行

#!@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));
	}
}