使用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字符串，达到目的