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字符串,达到目的