StringTemplate Perl 版

James

　　上回写了一篇 利用 GAWK 实现模板文件替换，实现了文本文件的替换，不过最近了解下 Perl，因此就此写了一个 Perl 版本的 StringTemplate.pl。
  要真说起来，Perl 还是 AWK 的派生，功能为为强大，由于我这里只是将模板替换功能应用到替换一些简单的东西，要求并不是很高，用一个精简版的 Perl 足矣，这就是精简版的 MiniPerl.exe，可以由 Perl 的源代码编译使用。
  这次实现的 StringTemplate.pl 相比之前用 GAWK 实现的功能要更强大一些：
    * 嵌套变量替换
    * 是否区分大小写替换
  未来的版本考虑添加一个类似 Java 中的 -D 选项添加变量的功能。
　　看代码先:

#!/usr/bin/perl #<code> #  <owner name="Zealic" email="rszealic(at)gmail.com"/> #  <version>1.0</version> #  <timestamp>2008-3-30</timestamp> #</code> 　　# Initial $len = scalar @ARGV; if ($len >= 2 and $len <= 3) {     if($len == 3)     {         if(index(@ARGV[0], "-") != 0) {showHelp(); exit(101);}         $ignoreCase = index(@ARGV[0], "i", 1) != -1;         $nesting = index(@ARGV[0], "n", 1) != -1;     }     $dictFile = @ARGV[$len - 2];     $templateFile = @ARGV[$len - 1]; } else # Show help {     showHelp();     exit(102); } 　　# Open files open(FDICT, $dictFile) or die("Can't open file $dictFile."); open(FTPL,  $templateFile) or die("Can't open file $templateFile."); 　　# Parse dict {     @lines = <FDICT>;     foreach $line(@lines)     {         if($line =~ /\w+=/)         {             $key = substr($line, 0, $+[0] - 1);             $value = substr($line, $+[0], length($line) - $+[0]);             chomp($value);             $dict{$key} = $value;         }     } } 　　# Replace and output {     @contents = <FTPL>;     foreach $line(@contents)     {         while($line =~ /\$\(\w+\)/)         {             local $old = $line;             while (($key, $value) = each %dict)             {                 if($ignoreCase)                 {                     $line =~ s/\$\($key\)/$value/gi;                 }                 else                 {                     $line =~ s/\$\($key\)/$value/g;                 }             }             if($old eq $line) {last;}             unless($nesting) {last;}         }         print "$line";     } } 　　sub showHelp() {     print( 'StringTemplate 1.0 Copyright 2008 Zealic, All rights reserved. Contact Me : e-mail:rszealic@gmail.com 　　Usage :   StringTemplate.pl : [-[n]] <DictFile> <TemplateFile> 　　Options :     i : IGNORECASE variable for case-insensitive matches.     n : Nest replacement. '); }

　　
  根据这个东西，可以直接将 MiniPerl.exe 纳入版本控制中，成为自动构建的一部分，可以据此动态生成脚本、源文件，Manifest 文件；或通过 MSBuild Community Tasks 的 SVN/VSS/TFS Task，与我以前所写的 通过 TSVN 自动更新程序集版本信息 ，再加上 MSBuild，可以让版本信息生成/测试打包/安装文件生成等重复劳动更加轻松简单。
  最后，你可以在这里下载本文所说的内容，包括 MiniPerl.exe、StringTemplate.pl、以及示例文件。

2008-4-7 by Zealic