配置文件操作

#! perl -w
use Config::Tiny;  ###这种方法不用安装模块，最方便，是一个引用的散列(必须文件已经存在)
 
my $Config = Config::Tiny->new;
$Config = Config::Tiny->read('configini.ini');  ###得到整文件并赋值给这个引用

while (my ($key,$val)  = each %{$Config->{newsection}})  ###取出配置项配置节名称
{
 print "$key ==> $val" ;
}
 
if (exists $Config->{sectiosn})   ###判断配置项sectiosn是否存在
{
 print "aa\n";
}

my $one = $Config->{section}->{one};  ###读取配置节值
my $Foo = $Config->{section}->{Foo};
 
$Config->{newsection} = {this => 'that'};
$Config->{section}->{Foo} = 'NoBar!';  ###设置值
delete $Config->{edit};       ###删除配置项
delete $Config->{section}->{Foo};       ###删除配置节
 
$Config->write('configini.ini');  ###重新写到文件