Perl: 基本文法參考、設定檔、模板、Regex

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.chinaunix.net/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 Regex

http://www.chinaunix.net/jh/25/159388.html

9.1 Regex的三種形式

首先我們應該知道 Perl 程式中，Regex有三種存在形式，他們分別是：

 匹配：m/<regexp>;/ （還可以簡寫為 /<regexp>;/ ，略去 m）

 替換：s/<pattern>;/<replacement>;/

 轉化：tr/<pattern>;/<replacemnt>;/

這篇文章也講解了Regex的文法。