Perl解析INI文件

来源:互联网 时间:1970-01-01

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;


相关阅读:
Top