Append object output to scalar

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

I'm working with CGI::Application and HTML::Template. In my application module, I'm working with a scalar name $output (as in the cpan example). I then call and work with a HTML::Template object. In the end, I need to append the output of the HTML::Template object to the $output scalar. How is it done? I think it is necessary, as CGI::Application expects a single scalar to be returned. Thanks.

my $output = '';
$output .= $q->start_html(-title => 'Widget Search Form');
$output .= $q->p;
$output .= $q->start_form();

my $tmpl_obj = $self->load_tmpl('search.tmpl');
$tmpl_obj->param(request);
#### THIS DOESN'T WORK ####
$output .= print $temp_obj->output;
#### NOR DOES THIS ####
$tmpl_obj->output(print_to => $output);

return $output;
[download]

Comment on Append object output to scalar Download Code

Replies are listed 'Best First'.
Re: Append object output to scalar by Joost (Canon) on Jun 23, 2005 at 14:01 UTC
It won't work because you're trying to append the return value of print (which is a status code) to $output in the first example, and you're trying to print to $output (which is a string, not a filehandle) in the second example. You (probably) just want `$output .= $tmpl_object->output();` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^2: Append object output to scalar by mhearse (Chaplain) on Jun 23, 2005 at 14:05 UTC
Works, thanks!	[reply]
Re: Append object output to scalar by izut (Chaplain) on Jun 23, 2005 at 14:12 UTC
I use CGI::Application and it works as you expected. I have this method here: `sub index { my $self = shift; my $template = $self->load_tmpl('index.html'); return $template->output; }` [download] I checked it's contents with Data::Dumper, and I got this: $VAR1 = '<html> <head> <title>Administra\uffff\uffffo VIARS</title> </head> <body> <center> <h1>Consulta de contratos</h1> <form action="viars.cgi" method="post"> <input type="hidden" name="page" value="listar_contratos_action"/> <fieldset style="width: 300px;"> <legend>Filtros</legend> <div style="text-align: left;"> Contrato<br/> <input type="text" name="filtro_contrato" /> <p/> Usuário<br/> <input type="text" name="filtro_usuario" /> <p/> <input type="submit" value="Consultar"/> </div> </fieldset> </form> </center> </body> </html> '; [download] Maybe your template is not being rendered. izut	[reply] [d/l] [select]
Re^2: Append object output to scalar by izut (Chaplain) on Jun 23, 2005 at 14:21 UTC
Well, as I said before, your template is not being rendered :)	[reply]
Re: Append object output to scalar by blazar (Canon) on Jun 23, 2005 at 14:07 UTC
Hint: `$ perl -le 'print print' 1` [download]	[reply] [d/l]