3 @ARGV || die "Usage: $0 template1.htm [... templateN.htm]\n";
8 foreach my $file ( @ARGV )
10 if( open F, "< $file" )
16 while( $data =~ m/ <%: -? (\w+) (.*?) %> /sgx )
18 my ( $key, $val ) = ( $1, $2 );
38 foreach my $key ( sort keys %tags )
42 printf "%s = [[%s]]\n", $key, $tags{$key};
46 printf "%s = '%s'\n", $key, $tags{$key};