abw / template2 Goto Github PK

[% FILTER redirect("bar.txt") %]
This text is for bar.txt.
[% END %]
This text is for foo.txt.

#! /bin/perl
use strict;
use warnings;

use Template;

my $tt = Template->new({
                        OUTPUT_PATH => '.',
                        RELATIVE => 1,
                       }) || die "$Template::ERROR\n";

my $srcfile = 'foo.txt.tt';
my $tgtfile = 'foo.txt';

open my $ofh, '>:raw', $tgtfile or die;

$tt->process($srcfile, {}, $ofh, { binmode => ':raw' })
    || die $tt->error . "\n";

> od -c bar.txt
0000000  \r  \r  \n   T   h   i   s       t   e   x   t       i   s
0000020   f   o   r       b   a   r   .   t   x   t   .  \r  \r  \n
0000037

looking at the code, Template::Plugin::Dumper currently allows the
following arguments to be passed through to Data::Dumper : Indent Pad
Varname Purity Useqq Terse Freezer Toaster Deepcopy Quotekeys Bless Maxdepth

Adding Sortkeys to this list to order hash contents consistently would
be helpful.

(also only Pad, Indent and Varname are documented in POD)

Thanks

The attached failing test case demonstrates a problem sorting a list
that contains one hash reference.

If you uncomment the additional hash reference, the list contains two
elements and the test passes.  This problem only occurs with a one
element list.

I hope this provides enough information to diagnose the bug.

Thanks for all your great work on Template Toolkit.

Tom

Moose Objects should be special cased and excluded from Hash Virtual
Methods (VM)

It is the sole purpose of Moose to provide a layer of
object-introspection. The layer that TT overlays is an affront to the
smoother layer of Moose. It treats a Moose object as a Hash -- even
though one of the very purposes of Moose is to endeavor to create real
objects in Perl oblivious to their base types. I'd suggest that TT not
install VM on blessed objects, or at least not on Moose objects. I'm not
sure how much you know about Moose, or how much further I need to
continue with this. I'd be glad to give you more reasoning, but I fear
that it would all be redundant if you're already a Moose user.

VM are great for base-types, but there is a far better implementation
for Moose objects:
http://search.cpan.org/~flora/Moose-1.05/lib/Moose/Meta/Attribute/Native.pm

In fact, you could modernize TT by delegating all of this to autobox,
which does a much fuller job at abstracting base-types as objects.
http://search.cpan.org/~chocolate/autobox-2.70/lib/autobox.pod

So my priority of requests is as follows in ascending order of preference:
(a) get rid of VM on Moose
(b) get rid of VM on blessed objects
(c) delegate VM to autobox which doesn't apply to blessed types (objects).

-- 
Evan Carroll
System Lord of the Internets
http://www.evancarroll.com

s/(...)/${1}012/;

text.replace('(...)', '$1' _ '012')

'$1012'

text.replace('(...)', '${1}' _ '012')

text.replace('(...)', '${1}012')

Hello

I'm not sure it's a bug, but the behaviour changed 
from 2.15 to 2.22 and for me 2.15 was ok

I use it for processing a tt2 file
to obtain a Windows text file, I get a bad newline sequence: \r\r\n 
(I discovered it browsing the resulting attached file tpse_msgs.txt 
with an hex editor) it should be \r\n

With 2.15 everything was OK, the problem appeared after the upgrade to
2.22.
I've tried POST_CHOMP and similar but without obtaining the desired
result.

What I want to obtain is a normal newline sequence (\r\n hex 0D0A)

or go back to 2.15 :-)

best regards

Carlo Caminati


-----------------------------------------------------------------------
* Distribution name and version
    Template-Roolkit 2.22

* Perl version
	This is perl, v5.8.8 built for MSWin32-x86-multi-thread
	(with 18 registered patches, see perl -V for more detail)

	Copyright 1987-2007, Larry Wall

	Binary build 822 [280952] provided by ActiveState
http://www.ActiveState.com
	Built Jul 31 2007 19:34:48

	Perl may be copied only under the terms of either the Artistic
License or the
	GNU General Public License, which may be found in the Perl 5
source kit.

	Complete documentation for Perl, including FAQ lists, should be
found on
	this system using "man perl" or "perldoc perl".  If you have
access to the
	Internet, point your browser at http://www.perl.org/, the Perl
Home Page.

* Operating System vendor and version
      WindowsNT 1 5 x86 (Windows XP SP3)

------------------------------------------------------------------------
-----


------------------------------------------
Carlo Caminati - R&D Network Management
Selta SpA - Roveleto di Cadeo (PC) - Italy
[email protected]  -  www.selta.com
voice:+39 0523 5016200 - fax:+39 0523 5016333

I'm attaching the build log, here's my perl info since this is a perlbrew build.

perl -V
                                                             hgcc
Summary of my perl5 (revision 5 version 12 subversion 4) configuration:

  Platform:
    osname=linux, osvers=2.6.39-arch, archname=i686-linux-thread-multi
    uname='linux hgcc 2.6.39-arch #1 smp preempt mon jun 27 22:01:13
cest 2011 i686 intel(r) core(tm) i3 cpu 550 @ 3.20ghz genuineintel
gnulinux '
    config_args='-de
-Dprefix=/home/ccushing/perl5/perlbrew/perls/perl-5.12.4 -Dusethreads'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing
-pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe
-fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.6.1', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc -lgdbm_compat
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=/lib/libc-2.14.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.14'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib
-fstack-protector'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_ITHREADS
                        USE_LARGE_FILES USE_PERLIO USE_PERL_ATOF
                        USE_REENTRANT_API
  Built under linux
  Compiled at Jun 29 2011 16:04:49
  %ENV:
    PERLBREW_HOME="/home/ccushing/.perlbrew"
    PERLBREW_PATH="/home/ccushing/perl5/perlbrew/bin:/home/ccushing/perl5/perlbrew/perls/perl-5.12.4/bin"
    PERLBREW_PERL="perl-5.12.4"
    PERLBREW_ROOT="/home/ccushing/perl5/perlbrew"
    PERLBREW_VERSION="0.24"
  @INC:
    /home/ccushing/perl5/perlbrew/perls/perl-5.12.4/lib/site_perl/5.12.4/i686-linux-thread-multi
    /home/ccushing/perl5/perlbrew/perls/perl-5.12.4/lib/site_perl/5.12.4
    /home/ccushing/perl5/perlbrew/perls/perl-5.12.4/lib/5.12.4/i686-linux-thread-multi
    /home/ccushing/perl5/perlbrew/perls/perl-5.12.4/lib/5.12.4

-- 
Caleb Cushing

http://xenoterracide.com

    [% title = some_html _ (user-input | html) %]

    unexpected token (|)

[%  
    array = ['foo', 'bar', 'baz']
    v = 'ba.'
%]
[% array.grep("^$v$").size %]

[%  
    array = ['foo', 'bar', 'baz']
    v = 'ba.'
%]
[% array.grep("^\Q$v\E$").size %]

[%  
    array = ['foo', 'bar', 'baz']
    v = 'bar'
%]
[% array.grep("^\Q$v\E$").size %]

$ perl -we 'my $v = "ba."; print "bar" =~ /^$v$/ ? "match" : "no match";'
match


$ perl -we 'my $v = "ba."; print "bar" =~ /^\Q$v\E$/ ? "match" : "no match";'
no match

I prefer to use tags '<?tt ... ?> which is correct in xml. It would be 
nice to have instead of 

...
   START_TAG => quotemeta('<?tt'),
   END_TAG => quotemeta('?>')
...

simply

...
   TAG_STYLE => 'xml'
...

The TRIM option causes output files to be written without a newline on 
the final line, which upsets software that cares about such things.  
We are generating C/C++ code from templates and g++ complains - I 
understand a C++ source with incomplete final line can cause undefined 
behaviour according to the standards.

To reproduce, please see the attached program, which runs itself 
through Template::process, and check the output.

strace perl -MTemplate -e'Template->new()->process( \"[% USE dumper; USE dumper %]" )' 2>&1 | less

t/compile2.t: Use of uninitialized value $compiled in concatenation (.) or string at lib/Template/Provider.pm line 572. )

use warnings;
use strict;

use Template;

my $text = '[% IF foo.defined; "Yes!"; ELSE; "No."; END %]';
my $tt = Template->new({ STRICT => 1 });
$tt->process(\$text) or die $tt->error();

var.undef error - undefined variable: foo.defined

When you use UTF-8 template file names with non-ascii characters, TT  
sometimes fails with an error "file error - 1: not found".
The reason is that Perl's %INC hash always clears the UTF-8 flag on its  
keys, so when Template::Provider::_load_compiled() does delete $INC{$file}  
with $file being a UTF-8 string with flag ON, the entry is not really  
removed from %INC, and "require()" returns 1.
How to fix: add the line
  Encode::_utf8_off($file);
before
  delete $INC{$file};
My system is Debian sid with Perl 5.10.1.

How to reproduce:

#!/usr/bin/perl

use Template;
use Encode;

my $fn = 'test-��.tt';
{
     open FD, '>', $fn;
     print FD "hello world\n";
     close FD;
}
my $template = new Template({COMPILE_DIR => './', COMPILE_EXT => 'c'});
Encode::_utf8_off($fn);
$template->process($fn, {}) || die $template->error;
$template = new Template({COMPILE_DIR => './', COMPILE_EXT => 'c'});
$template->process($fn, {}) || die $template->error;
Encode::_utf8_on($fn);
$template->process($fn, {}) || die $template->error;

__END__

Here, the last process() gives the error "file error - 1: not found".

-- 
With best regards,
   VitaliyFilippov

This is a request to somehow make the stash available to
Template::Provider and it's subclasses.  This would give the ability to
extend Template providers such as DBI and DBIC to make available other
columns from the database to the current template being processed. 

$Template::Stash::LIST_OPS->{as_list} = sub {
    return ref($_[0]) eq 'ARRAY' ? shift : [shift];
};

{test => 5}
$test, [% test = 3 IF 0 %] $test

5,  

t/vmethods/text.t ..... 1/107 FAILED 35:  - text.split.join d did not match expected

We have a custom vmethod called "contains". It's implemented like this:

$Template::Stash::LIST_OPS->{ contains } =
  sub {
      my ($list, $item) = @_;
      return grep($_ eq $item, @$list) ? 1 : 0;
  };

I have a constant called ITA_FIELDS, which is an arrayref of strings.

In the following testcase, contains() is never called (tested by putting
a "die" in the function):

[% SET this_var = 'a string' %]
[% constants.ITA_FIELDS.contains(this_var) %]

In the following testcase, contains() *is* called:

[% constants.ITA_FIELDS.contains('a string') %]

[% a=['φοο','βαρ']; a.join('•') %]
[% a=['foo','bar']; a.join('•') %]

#!/usr/bin/perl
use Template;
binmode STDOUT,'utf8';
Template->new(ENCODING=>'utf8')->process('test.tmpl');

φοο•βαρ
fooâ¢bar

φοο•βαρ
foo•bar

--- a/Template/Filters.pm
+++ b/Template/Filters.pm
@@ -1,4 +1,4 @@
- #============================================================= -*-Perl-*-
+#============================================================= -*-Perl-*-
 #
 # Template::Filters
 #
@@ -25,7 +25,7 @@ use locale;
 use base 'Template::Base';
 use Template::Constants;
 use Scalar::Util 'blessed';
-
+use utf8;
 our $VERSION         = 2.87;
 our $AVAILABLE       = { };
 our $TRUNCATE_LENGTH = 32;
@@ -59,7 +59,13 @@ our $FILTERS = {
     'stderr'          => sub { print STDERR @_; return '' },
     'trim'            => sub { for ($_[0]) { s/^\s+//; s/\s+$// }; $_[0] },
     'null'            => sub { return '' },
-    'collapse'        => sub { for ($_[0]) { s/^\s+//; s/\s+$//; s/\s+/ /g };
+#'collapse' => sub { $_[0] },
+    'collapse'        => sub { for ($_[0]) {
+#s/^\s+//;
+ tr/ //s;
+#s/\s+$//;
+#s/\s+/ /g
+};
                                $_[0] },

     # dynamic filters

[Wed Jun 28 22:08:59 2017] [warn] Wide character (U+442) in substitution (s///) at /home/ubuntu/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Template/Filters.pm line 62.
[Wed Jun 28 22:08:59 2017] [warn] Wide character (U+440) in substitution (s///) at /home/ubuntu/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Template/Filters.pm line 62.
[Wed Jun 28 22:08:59 2017] [warn] Wide character (U+41B) in substitution (s///) at /home/ubuntu/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Template/Filters.pm line 62.
[Wed Jun 28 22:08:59 2017] [warn] Wide character (U+438) in substitution (s///) at /home/ubuntu/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Template/Filters.pm line 62.
[Wed Jun 28 22:08:59 2017] [warn] Wide character (U+43D) in substitution (s///) at /home/ubuntu/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Template/Filters.pm line 62.
[Wed Jun 28 22:08:59 2017] [warn] Wide character (U+437) in substitution (s///) at /home/ubuntu/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Template/Filters.pm line 62.^C

It's painful to scan the dump of a large hash where the keys are random.

This requires only adding "Sortkeys" to @DUMPER_ARGS in
Template/Plugin/Dumper.pm

Thanks.

    [%#
    <div id="menu">
        Navigation:
        <ul>
            <li><a href="[% c.uri_for('/books/list') %]">Home</a></li>
            <li><a href="[% c.uri_for('/') %]" title="Catalyst Welcome
Page">Welcome</a></li>
        </ul>
    </div><!-- end menu -->
    %]

$tt->preload( "name" => \"[% in_memory_template %]" );
# later in the code
$tt->process( "name", \%vars ); 
     # will now work on the provided template
     # instead or looking for it in INCLUDE_PATH

\documentclass[11pt,a4paper]{amsart}
\begin{document}
\title{Testing TTK}
\date{\today}
\maketitle

[[ IMPORT my/math/article/derivation1
   intro_sec='Introduction' ]]

From \eqref{eq:my:math:article:derivation1:1} it follows that ...
   
\bibliographystyle{plain}
\bibliography{myarticles}
\end{document}

\section{[[ intro_sec ]]}
The equation of state is expressed in the form of the Helmholtz energy
as \cite{spa96:eqs}  
\begin{align}
  \label{eq:1}
  \frac{A(\rho, T)}{RT} = \phi(\delta, \tau) =
  \phi^o(\delta,\tau)+\phi^r(\delta, \tau)
\end{align}
where
\begin{align}
  \label{eq:2}
  \delta &= \frac{\rho}{\rho_c}\\
  \tau &= \frac{T_c}{T}.
\end{align}

use Template::Parser;
use Test::More;

my $template = Template::Parser
    ->new(TRACE_VARS => 1)
    ->parse('[% FOREACH [ A ] %][% B.C %][% END %]');

is_deeply $template->{VARIABLES}, {A => {B => { C => {} } } };

done_testing;

not ok 1
#   Failed test at t/auto/template/trace-vars.t line 8.
#     Structures begin differing at:
#          $got->{A}{B} = Does not exist
#     $expected->{A}{B} = HASH(0x7fdd1501b730)
1..1
# Looks like you failed 1 test of 1.

You can use $1, $2, etc., to reference captured parts (in parentheses) in
the regular expression.

With HARNESS_OPTIONS=-j$n and $n != 1 these will fail:

Test Summary Report
-------------------
t/compile5.t        (Wstat: 512 Tests: 3 Failed: 3)
  Failed tests:  1-3
  Non-zero exit status: 2
t/compile2.t        (Wstat: 0 Tests: 15 Failed: 2)
  Failed tests:  1-2
t/compile3.t        (Wstat: 0 Tests: 14 Failed: 2)
  Failed tests:  4-5
Files=89, Tests=2787, 11 wallclock secs ( 0.71 usr  0.56 sys + 10.18 cusr  
1.67 csys = 13.12 CPU)

make[1]: Entering directory `/home/chenbi/.cpanm/work/1341477673.5592/Template-Toolkit-2.24/xs'
gcc-4 -c    -DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -g3 -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -DUSEIMPORTLIB -O3    -DVERSION=\"2.24\"  -DXS_VERSION=\"2.24\"  "-I/usr/lib/perl5/5.10/i686-cygwin/CORE"   Stash.c
/bin/sh: gcc-4: command not found
Makefile:308: recipe for target `Stash.o' failed
make[1]: *** [Stash.o] Error 127
make[1]: Leaving directory `/home/chenbi/.cpanm/work/1341477673.5592/Template-Toolkit-2.24/xs'
Makefile:900: recipe for target `subdirs' failed
make: *** [subdirs] Error 2
-> FAIL Installing . failed. See /home/chenbi/.cpanm/build.log for details.

#!/usr/bin/env perl

use Template;

while (1) {
    my $template = Template->new(
        {   ABSOLUTE => 1,
            ENCODING => q{utf8},
        }
    );
    my $output;
    my $r = $template->process( '/var/www/tmpl/auth_test.html', {}, \$output );
}

1;
__END__

[% data.nsort('foo', 'bar') %]

22/*^UNLIKELY^*/128
22/*^UNLIKELY^*/23

ack --nocolor --nogroup --nofilter -- "/\^\w+\|"
Context.pm:750:    if ($args[0] =~ /^on|1$/i) {
Context.pm:754:    elsif ($args[0] =~ /^off|0$/i) {
Directive.pm:653:        die \$_tt_error if \$_tt_error->type 
=~ /^return|stop\$/;
Stash.pm:78:    if ($type =~ /^scalar|item$/) {
Stash.pm:84:    elsif ($type =~ /^list|array$/) {