Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

This is my first post so feel free to critique me etiquette as well. My problem is the html outfile producing strings cutoff at the first space in the Records Loop. Here's the short program preceding the template it's supposed to fill out:

PROGRAM 

#!/usr/bin/env perl

use v5.16.3;  
use strict;    
use warnings;
use autodie;
use Data::Dump qw(dump);
use HTML::Template;

my $template = HTML::Template->new(filename => 'test.tmpl');

open FILE, ">", "output.html";

$template->param(RECORDS => [
    {LINENUMBER => "1", CHARACTER => "Sid", TEXT => "this only prints 
+the first word"},
    {LINENUMBER => "2", CHARACTER => "Sid", TEXT => "this only prints 
+the first word"},
    {LINENUMBER => "3", CHARACTER => "Sid", TEXT => "this only prints 
+the first word"},
    ]);

print FILE "Content-Type: text/html\n\n", $template->output;

close FILE;

[download]

HTML Template

<html>
<head><title>Test Template</title></head>
<body>
<h1>The Script</h1>


<TABLE><BORDER=5>
    <TR>
        <TH>Line No.</TH>
        <TH>Character</TH>
        <TH>Text</TH>
    </TR>
    <TMPL_LOOP NAME=RECORDS>
    <TR>
        <TD> <INPUT TYPE=TEXT NAME=LINENOINPUT VALUE=<TMPL_VAR NAME=LI
+NENUMBER> > </TD>
        <TD> <INPUT TYPE=TEXT NAME=CHARACTERINPUT VALUE =<TMPL_VAR NAM
+E=CHARACTER> > </TD>
        <TD> <INPUT TYPE=TEXT NAME=TEXTINPUT VALUE=<TMPL_VAR NAME=TEXT
+> > </TD>
    </TR>
    </TMPL_LOOP>
    <TR>
        <TD> <INPUT TYPE=TEXT VALUE="This value works"> </TD>
    </TR>

</TABLE>



</body>
</html>

[download]

<INPUT TYPE=TEXT NAME=TEXTINPUT VALUE=<TMPL_VAR NAME=TEXT>

will print out "This"

<INPUT TYPE=TEXT VALUE="This value works">

will print out the full string.

Thanks for your help!

Replies are listed 'Best First'.
Re: HTML::Template and Spaces
by toolic (Bishop) on Aug 19, 2013 at 18:46 UTC
    Adding quotes fixes it. Note that I added quotes after all VALUE=, as the POD for HTML::Template shows. 
    <html>
<head><title>Test Template</title></head>
<body>
<h1>The Script</h1>


<TABLE><BORDER=5>
    <TR>
        <TH>Line No.</TH>
        <TH>Character</TH>
        <TH>Text</TH>
    </TR>
    <TMPL_LOOP NAME=RECORDS>
    <TR>
        <TD> <INPUT TYPE=TEXT NAME=LINENOINPUT VALUE="<TMPL_VAR NAME=L
+INENUMBER>" > </TD>
        <TD> <INPUT TYPE=TEXT NAME=CHARACTERINPUT VALUE ="<TMPL_VAR NA
+ME=CHARACTER>" > </TD>
        <TD> <INPUT TYPE=TEXT NAME=TEXTINPUT VALUE="<TMPL_VAR NAME=TEX
+T>" > </TD>
    </TR>
    </TMPL_LOOP>
    <TR>
        <TD> <INPUT TYPE=TEXT VALUE="This value works"> </TD>
    </TR>

</TABLE>



</body>
</html>

    [download]
[reply]
[d/l]
[select]
Re: HTML::Template and Spaces
by RichardK (Parson) on Aug 19, 2013 at 18:41 UTC

    Does using quotes for the value help? (I've never used this module so this is just a guess)

    VALUE="<TMPL_VAR NAME=TEXT>"

    HTML::Template has lots of docs with examples ;)

[reply]
[d/l]
Re: HTML::Template and Spaces
by locked_user sundialsvc4 (Abbot) on Aug 19, 2013 at 18:50 UTC

    Not surprising.   (But, great!)   When in doubt, always look at the actual HTML that is coming out of the template ... not how your browser renders it.   (This HTML was invalid, and browsers are never consistent as to how they handle errors.)   There used to be a really good plug-in for Firefox that could subject any incoming HTML stream to an “HTML lint” to automatically detect invalid constructs coming back from the server.   (It’s great fun to run that on a commercial website... not so much fun to run against your own.)

Back to Seekers of Perl Wisdom