读配置文件2

--数据--

[HOST 1]
IP = 16.173.234.228
PORT = "21,80,873,3306" 
CPU = +10% 
FREEMEM = -3% 
CONCONN = +1000 
CHECKGW = 1 
FREEDISK = -10% 
SWAPUSED = +30000 
[/HOST]

[HOST 2]
IP = 16.173.235.25
PORT = "21,80,873,3306" 
CPU = +10% 
FREEMEM = -3% 
CONCONN = +1000 
CHECKGW = 1 
FREEDISK = -10% 
SWAPUSED = +30000 
[/HOST]

[HOST 3]
IP = 16.173.242.191
PORT = "21,80,873,3306" 
CPU = +10% 
FREEMEM = -3% 
CONCONN = +1000 
CHECKGW = 1 
FREEDISK = -10% 
SWAPUSED = +30000 
[/HOST]

--代码--

my $cfg_file = "agent.txt";

sub get_config
{
my %config;
open (HDR,$cfg_file) or die " can't open cfg_file: $!\n";
while(<HDR>)
{
next if /^$/;
next if /^\s*\#/;
if ( my ($hid) = /\[HOST (\d+)\]/ ) {

while (<HDR>) {
next if /^$/;
next if /^\s*\#/;
last if /\[\/HOST\]/;
chomp;
my ($cfg_key,$cfg_value) = split /=/;
$cfg_key =~ s/^\s+|\s+$//g;
$cfg_value =~ s/\#.*$//;
$cfg_value =~ s/^\s+|\s+$//g;
$cfg_value =~ s/^\"|\"$//g;
$cfg_value =~ s/^\'|\'$//g;
$config{$hid}->{$cfg_key} = $cfg_value;
}
}
}
close HDR;
return \%config;
}

get_config();

$config{1}->{IP} 获取主机1 IP的值。

注意：转载请注明出处，作者No. Liu