使用Config::IniFiles读写ini文件

1. ppm install  Config::IniFiles

 

 

2.代码如下：

  #!perl -w# parse ini file using Config::IniFiles;use strict;use Cwd;use Config::IniFiles;my $dir = getcwd; my $file = $dir . $ARGV[0];my %ini;my $Section = 'target';my $Parameter = 'trg_tab_name';tie %ini, 'Config::IniFiles', ( -file => $file);print "We have $ini{$Section}{$Parameter}." if $ini{$Section}{$Parameter};$ini{$Section}{$Parameter}.='bruce';tied( %ini )->WriteConfig( "$file" ) ||die "Could not write settings to new file.";sub PrintSection(){my $Section = shift;my ($Key,$Value);while ( ($Key,$Value) =each %$Section){print $Key," = ",$Value;print "/n";}$Section->{'pk_column'} = "bruce";}

 

3. 运行效果：

 

多2个bruce字符串，达到目的