上回写了一篇 利用 GAWK 实现模板文件替换,实现了文本文件的替换,不过最近了解下 Perl,因此就此写了一个 Perl 版本的 StringTemplate.pl。
上回写了一篇 利用 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 : [-[i][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