Perl: 基本语法参考、配置文件、模板、正则表达式

worker321

　　1 基本语法参考
　　http://ind.ntou.edu.tw/~dada/cgi/Perlsynx.htm
　　
　　2 配置文件
　　http://www.itqun.net/content-detail/93521.html
http://www.9php.com/FAQ/cxsjl/perl/2009/07/4285989147407.html
http://blog.iyunv.com/u/29291/showart_344126.html
　　【test.pl】




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";

　　【test.ini】




[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

　　
　　
　　3 模板
　　http://www.lupaworld.com/tutorial-view-aid-8885.html
　　【test.pl】




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;
}
　　【test.template】




$1$你好，我是$2$
　　【输出】




小张你好，我是小明
　　
　　4 正则表达式
　　http://www.iyunv.com/jh/25/159388.html
　　9.1 正则表达式的三种形式
　　首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是：
　　匹配：m/<regexp>;/ （还可以简写为 /<regexp>;/ ，略去 m）
　　替换：s/<pattern>;/<replacement>;/
　　转化：tr/<pattern>;/<replacemnt>;/
　　这篇文章也讲解了正则表达式的语法。