temple

   1 #!/usr/bin/perl -CSA
   2 # A really simple template engine
   3 # (c) 2004 Martin Mares <mj@ucw.cz>
   4
   5 use strict;
   6 use warnings;
   7 use lib '.';
   8
   9 use Getopt::Long;
  10 use UCW::Temple;
  11
  12 my $out;
  13 my @execs = ();
  14
  15 GetOptions('out|o=s' => \$out, 'exec|e=s' => \@execs) or die "Usage: temple [-o <out>] [-e <string>] <in> ...";
  16 if (defined $out) {
  17         close STDOUT;
  18         open STDOUT, '>:utf8', $out or die "Cannot open $out: $!";
  19 }
  20 if (!@ARGV) { push @ARGV, "-"; }
  21 UCW::Temple::start();
  22 foreach (@execs) {
  23         UCW::Temple::parse_string($_, "-e");
  24 }
  25 foreach (@ARGV) {
  26         UCW::Temple::parse_file($_);
  27 }
  28 UCW::Temple::finish();