perl Config::Tiny用法

 Config::Tiny是个好东西，功能是这样实现的，从一个规范的配置文件中取出相应的值。

文件名config

[sention]
IPADDRESS=127.0.0.1

USER=game
PASS=3451133

BACK_DESC=/dev/shm
 代码如下：

  

#!/usr/bin/perl

use Config::Tiny;
use Math::BigInt;
my $Config=Config::Tiny->new();
$Config=Config::Tiny->read('config');
my $user=$Config->{sention}->{USER};
my $pass=$Config->{sention}->{PASS};
#my $dbpass=RSA_DECRYPT(\$pass);

print "$user\n$pass\n$dbpass";

结果如下：

game

3451133

这个功能适用于密码经常更新