上回写了一篇 利用 GAWK 实现模板文件替换，实现了文本文件的替换，不过最近了解下 Perl，因此就此写了一个 Perl 版本的 StringTemplate.pl。
要真说起来，Perl 还是 AWK 的派生，功能为为强大，由于我这里只是将模板替换功能应用到替换一些简单的东西，要求并不是很高，用一个精简版的 Perl 足矣，这就是精简版的 MiniPerl.exe，可以由 Perl 的源代码编译使用。
这次实现的 StringTemplate.pl 相比之前用 GAWK 实现的功能要更强大一些：
- 嵌套变量替换
- 是否区分大小写替换
未来的版本考虑添加一个类似 Java 中的 -D 选项添加变量的功能。
看代码先:
1#!/usr/bin/perl
2#<code>
3#<owner name="Zealic" email="[email protected]"/>
4#<version>1.0</version>
5#<timestamp>2008-3-30</timestamp>
6#</code>
7
8# Initial
9$len = scalar @ARGV;
10if ($len >= 2 and $len <= 3)
11{
12 if($len == 3)
13 {
14 if(index(@ARGV[0], "-") != 0) {showHelp(); exit(101);}
15 $ignoreCase = index(@ARGV[0], "i", 1) != -1;
16 $nesting = index(@ARGV[0], "n", 1) != -1;
17 }
18 $dictFile = @ARGV[$len - 2];
19 $templateFile = @ARGV[$len - 1];
20}
21else # Show help
22{
23 showHelp();
24 exit(102);
25}
26
27# Open files
28open(FDICT, $dictFile) or die("Can't open file $dictFile.");
29open(FTPL,$templateFile) or die("Can't open file $templateFile.");
30
31# Parse dict
32{
33 @lines = <FDICT>;
34 foreach $line(@lines)
35 {
36 if($line =~ /w+=/)
37 {
38 $key = substr($line, 0, $+[0] - 1);
39 $value = substr($line, $+[0], length($line) - $+[0]);
40 chomp($value);
41 $dict{$key} = $value;
42 }
43 }
44}
45
46# Replace and output
47{
48 @contents = <FTPL>;
49 foreach $line(@contents)
50 {
51 while($line =~ /$(w+)/)
52 {
53 local $old = $line;
54 while (($key, $value) = each %dict)
55 {
56 if($ignoreCase)
57 {
58 $line =~ s/$($key)/$value/gi;
59 }
60 else
61 {
62 $line =~ s/$($key)/$value/g;
63 }
64 }
65 if($old eq $line) {last;}
66 unless($nesting) {last;}
67 }
68 print "$line";
69 }
70}
71
72sub showHelp()
73{
74 print(
75'StringTemplate 1.0
76Copyright 2008 Zealic, All rights reserved.
77Contact Me : e-mail:[email protected]
78
79Usage :
80StringTemplate.pl : [-[i][n]] <DictFile> <TemplateFile>
81
82Options :
83 i : IGNORECASE variable for case-insensitive matches.
84 n : Nest replacement.
85');
86}根据这个东西，可以直接将 MiniPerl.exe 纳入版本控制中，成为自动构建的一部分，可以据此动态生成脚本、源文件，Manifest 文件；或通过 MSBuild Community Tasks 的 SVN/VSS/TFS Task，与我以前所写的 通过 TSVN 自动更新程序集版本信息 ，再加上 MSBuild，可以让版本信息生成/测试打包/安装文件生成等重复劳动更加轻松简单。
最后，你可以在这里下载本文所说的内容，包括 MiniPerl.exe、StringTemplate.pl、以及示例文件。