读取自定义配置文件

1. 配置文件样例

# more test.conf?

### Database Configration ####

host = 10.8.9.20;

dbname = webdb ;

user = admin ;

pwd = admin;

2.测试程序内容

#!/usr/bin/perl

use strict;

our($host,$dbname,$user,$password);

my $prog_root="/usr/test_prog";

my $prog_conf = $prog_root."/test.conf";

open my $conf_file,"<",$prog_conf;

my @conf_items = <$conf_file>;

close($conf_file);

foreach my $line(@conf_items){

? ?#### read each line from configration file

? ?$host = $1 if ($line =~/hosts*=s*(S+)s*;/i);

? ?$dbname=$1 if ($line =~/dbnames*=s*(S+)s*;/i);

? ?$user=$1 if ($line =~/users*=s*(S+)s*;/i);

? ?$password=$1 if ($line =~/pwds*=s*(S+)s*;/i);

}

print "$hostn";

print "$dbnamen";

print "$usern";

print "$passwordn";

3.运行输出结果

# perl conf.pl?

10.8.9.20

webdb

admin

admin