use Config::IniFiles;
my $cfg = new Config::IniFiles( -file => "test.ini",        #配置文件名
                                -allowcontinue => 1,        #是否运行一个参数值写在多行
                                -reloadwarn => 1,           
-nocase  => 1 );            #大小写不敏感
                                
@sect = $cfg->Sections;
print "@sect\n";

$a1 = $cfg->val("section1", "a");
$b1 = $cfg->val("section1", "b");
print "$a1 $b1\n\n";

$a2 = $cfg->val("section2", "a");
$b2 = $cfg->val("section2", "b");
@b3 = $cfg->val("section2", "b");
print "a2:$a2\n\nb2:$b2\n\nb3:@b3\n\n";

[section1]
a=1
b=2

[section2]
a=hello\
world
b=<<EOT
hello
world
EOT

section1 section2
1 2

a2:helloworld

b2:hello
world

b3:hello world

print &Template("test.template");

sub Template {
local(*FILE);# filehandle
    local($file);# file path
    local($HTML);# HTML data
     
$file = $_[0] || die "Template : No template file specified\n";

open(FILE, "<$file") || die "Template : Couldn't open $file : $!\n";
while (<FILE>) { $HTML .= $_; }
close(FILE);

@contents = qw(小张 小明);

$HTML =~ s/\$(\w+)\$/$contents[$1-1]/g;

return $HTML;
}

$1$你好，我是$2$

小张你好，我是小明