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
这个功能适用于密码经常更新