读配置文件2

liuweichuan

于 2012-07-30 15:18:00 发布

阅读量344

点赞数

分类专栏： perl 文章标签： file

本文链接：https://blog.youkuaiyun.com/liuweichuan/article/details/7802192

版权

perl 专栏收录该内容

38 篇文章

订阅专栏

本文详细介绍了如何从配置文件中获取主机IP地址等关键信息，并解析这些信息以监控主机状态，包括CPU使用率、内存使用情况、连接数、网关检查及磁盘空间使用情况。同时提供了一个自定义函数来获取特定主机的IP地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

--数据--

[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