读配置文件1

liuweichuan

于 2012-06-26 16:37:37 发布

阅读量328

点赞数

分类专栏： perl 文章标签： newline file comments path user class

本文链接：https://blog.csdn.net/liuweichuan/article/details/7693475

版权

perl 专栏收录该内容

38 篇文章 0 订阅

订阅专栏

适用于键 = 值形配置文件

1.txt，- - DATA - -

# set class C net
NETMASK = 255.255.255.0
MTU     = 296

DEVICE  = cua1
RATE    = 115200
MODE    = adaptive

读取配置文件：

File_Open() , File_Close 函数采用

http://blog.csdn.net/liuweichuan/article/details/7682091

#########main##############

my $path = "C:/Users/liuweic/Desktop/1.txt";
my $marke = "<";
my $handle = "CONFIG";

File_Open($handle,$marke,$path);

while(<$handle>){
	chomp;                  # no newline
    s/#.*//;                # no comments
    s/^\s+//;               # no leading white
    s/\s+$//;               # no trailing white
    next unless length;     # anything left? 跳过空行
    my ($var, $value) = split(/\s*=\s*/, $_, 2);
    $User_Preferences{$var} = $value;
}
print $User_Preferences{MTU};
File_Close($handle);

打印结果：

296

说明：next unless length 相当于 if (/^(\s*)$/){next;}

若key 的值中有空，要加引号，如：

- - DATA - -

MODE J = adap tive