perl处理properties文件[转]

最新推荐文章于 2023-12-06 11:52:55 发布

rockiecxh

最新推荐文章于 2023-12-06 11:52:55 发布

阅读量856

点赞数

分类专栏： Perl

本文链接：https://blog.csdn.net/rockiecxh/article/details/25278687

版权

Perl 专栏收录该内容

49 篇文章 0 订阅

订阅专栏

perl处理properties文件

博客分类：
perl

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

      Perl代码 
        
      
      
    
 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;  