Perl解析INI文件

copy from http://www.lwolf.cn/blog/article/program/perl-ini.html

之前有写过用C#解析INI文件的文章，那时是因为要用Perl来解析INI，后来就在网上找了个现成的解析代码IniParser. 
      假设INI文件是这样的：

  
    

   
     [
   
     Directories
   
     ]
   
     
Input
   
     =
   
     c:\autoexec.bat
  
    

      使用方法如下：

  
    

   
     use
   
      IniParser;

   
     my
   
      
   
     $ini
   
      
   
     =
   
      IniParser
   
     ->
   
     new(
   
     "
   
     c:\\test.ini
   
     "
   
     );

   
     my
   
      
   
     $inputdir
   
      
   
     =
   
      
   
     $ini
   
     ->
   
     expectEntry(
   
     "
   
     Directories
   
     "
   
     ,
   
     "
   
     Input
   
     "
   
     );
  
    

      以下是IniParser的代码：

  
    

   
     #
   
     -------------------------------------------------------------------------------
# IniParser. Version 1.0
# A freeware module for parsing .ini files.
# Joachim Pimiskern, September 13, 2003
#-------------------------------------------------------------------------------
   
     

   
     package
   
      IniParser;

   
     use
   
      strict;


   
     sub
   
      new
{

   
     my
   
      (
   
     $class
   
     ,
   
     $filename
   
     ) 
   
     =
   
      
   
     @_
   
     ;

   
     my
   
      
   
     $data
   
      
   
     =
   
      {
 filename 
   
     =>
   
      
   
     $filename
   
     
 };

   
     bless
   
     (
   
     $data
   
     ,
   
     $class
   
     );

   
     $data
   
     ->
   
     read
   
     (
   
     $filename
   
     );

   
     return
   
      
   
     $data
   
     ;
}


   
     sub
   
      
   
     read
   
     
{

   
     my
   
      (
   
     $self
   
     ,
   
     $filename
   
     ) 
   
     =
   
      
   
     @_
   
     ;

   
     my
   
      
   
     $sectionName
   
      
   
     =
   
      
   
     "
   
     Global
   
     "
   
     ;

   
     my
   
      
   
     $section
   
      
   
     =
   
      {};

   
     my
   
      
   
     $line
   
     ;

   
     local
   
      
   
     *
   
     FP;


   
     $self
   
     ->
   
     {
   
     $sectionName
   
     } 
   
     =
   
      
   
     $section
   
     ;


   
     open
   
     (FP
   
     ,
   
     "
   
     <$filename
   
     "
   
     ) or 
   
     die
   
      
   
     "
   
     read(): can't open $filename for read: $!
   
     "
   
     ;

   
     while
   
      (
   
     defined
   
      (
   
     $line
   
      
   
     =
   
      
   
     <
   
     FP
   
     >
   
     ))
{
 
   
     chomp
   
     (
   
     $line
   
     );
 
   
     if
   
      (
   
     $line
   
      
   
     =~
   
      
   
     /^\
   
     s
   
     *
   
     (
   
     .*?
   
     )
   
     \
   
     s
   
     *=\
   
     s
   
     *
   
     (
   
     .*?
   
     )
   
     \
   
     s
   
     *
   
     (;
   
     .*
   
     )
   
     ?
   
     $
   
     /
   
     ) 
   
     #
   
      Assignment 
   
     

   
      {
 
   
     my
   
      
   
     $left
   
      
   
     =
   
      $
   
     1
   
     ;
 
   
     my
   
      
   
     $right
   
      
   
     =
   
      $
   
     2
   
     ;
 
   
     $section
   
     ->
   
     {
   
     $left
   
     } 
   
     =
   
      
   
     $right
   
     ;
 }
 
   
     elsif
   
      (
   
     $line
   
      
   
     =~
   
      
   
     /^\
   
     s
   
     *\
   
     [
   
     \
   
     s
   
     *
   
     (
   
     .*?
   
     )
   
     \
   
     s
   
     *\
   
     ]
   
     \
   
     s
   
     *
   
     (;
   
     .*
   
     )
   
     ?
   
     $
   
     /
   
     ) 
   
     #
   
      Section name
   
     

   
      {
 
   
     $sectionName
   
      
   
     =
   
      $
   
     1
   
     ;
 
   
     $section
   
      
   
     =
   
      {};
 
   
     $self
   
     ->
   
     {
   
     $sectionName
   
     } 
   
     =
   
      
   
     $section
   
     ;
 }
 
   
     elsif
   
      (
   
     $line
   
      
   
     =~
   
      
   
     /^\
   
     s
   
     *
   
     (;
   
     .*
   
     )
   
     ?
   
     $
   
     /
   
     ) 
   
     #
   
      Comment
   
     

   
      {
 }
 
   
     else
   
     
 {
 
   
     die
   
      
   
     "
   
     read(): illegal line <$line> in file $filename.
   
     "
   
     ;
 }
} 

   
     close
   
     (FP);
}


   
     sub
   
      expectSection
{

   
     my
   
      (
   
     $self
   
     ,
   
     $section
   
     ) 
   
     =
   
      
   
     @_
   
     ;

   
     my
   
      
   
     $filename
   
      
   
     =
   
      
   
     $self
   
     ->
   
     {filename};


   
     if
   
      (
   
     !
   
      
   
     exists
   
      
   
     $self
   
     ->
   
     {
   
     $section
   
     })
 {
 
   
     die
   
      
   
     "
   
     expectSection(): $filename has no section [$section]
   
     "
   
     ;
 }

   
     return
   
      
   
     $self
   
     ->
   
     {
   
     $section
   
     };
}


   
     sub
   
      expectEntry
{

   
     my
   
      (
   
     $self
   
     ,
   
     $section
   
     ,
   
     $left
   
     ) 
   
     =
   
      
   
     @_
   
     ;

   
     my
   
      
   
     $filename
   
      
   
     =
   
      
   
     $self
   
     ->
   
     {filename};

   
     my
   
      
   
     $sectionHash
   
      
   
     =
   
      
   
     $self
   
     ->
   
     expectSection(
   
     $section
   
     );


   
     if
   
      (
   
     !
   
      
   
     exists
   
      
   
     $sectionHash
   
     ->
   
     {
   
     $left
   
     })
 {
 
   
     die
   
      
   
     "
   
     expectEntry(): $filename, section [$section] has no $left entry
   
     "
   
     ;
 }

   
     return
   
      
   
     $sectionHash
   
     ->
   
     {
   
     $left
   
     };
}


   
     1
   
     ;