StringTemplate Perl 版

上回写了一篇 利用 GAWK 实现模板文件替换,实现了文本文件的替换,不过最近了解下 Perl,因此就此写了一个 Perl 版本的 StringTemplate.pl。
要真说起来,Perl 还是 AWK 的派生,功能为为强大,由于我这里只是将模板替换功能应用到替换一些简单的东西,要求并不是很高,用一个精简版的 Perl 足矣,这就是精简版的 MiniPerl.exe,可以由 Perl 的源代码编译使用。
这次实现的 StringTemplate.pl 相比之前用 GAWK 实现的功能要更强大一些:

  • 嵌套变量替换
  • 是否区分大小写替换

未来的版本考虑添加一个类似 Java 中的 -D 选项添加变量的功能。

看代码先:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
#!/usr/bin/perl
#<code>
#<owner name="Zealic" email="rszealic@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、以及示例文件。

Zealic @ 2008-04-07

View Comments |
Categories: tech.posix
Tags:

Related posts