perl处置properties文件

perl处理properties文件

使用Config::Properties模块，详情请见：http://search.cpan.org/~salva/Config-Properties-1.70/Properties.pm

?

use Cwd;BEGIN {$ipath = getcwd . "/lib/perl/pm/";push @INC, $ipath;}use Config::Properties;my $properties = new Config::Properties();open PROPS, "< $propfile"or die "unable to open properties file";$properties->load(*PROPS);$value = $properties->getProperty( $key );# saving...open PROPS, "> $propfile"or die "unable to open properties file for writing";$properties->setProperty( $key, $val );$properties->format( '%s=%s' );$properties->store(*PROPS, $header );close PROPS;