读取自定义配置文件

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 =~/host\s*=\s*(\S+)\s*;/i);

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

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

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

}

print "$host\n";

print "$dbname\n";

print "$user\n";

print "$password\n";

3.运行输出结果

# perl conf.pl 

10.8.9.20

webdb

admin

admin

本文转自 pgmia 51CTO博客，原文链接:http://blog.51cto.com/heyiyi/1596282