[Cascavel-pm] Uso de Template

[André Garcia Carneiro]

> Ola Pessoal...
> Estou usando a biblioteca Template
> so que quero que invez dela criar um arquivo novo ela apendar os dados no arquivo ja existente

Apendar??? Não force a barra por favor... 'substituir' é a palavra que você quer.... 

  
> 
> eu faco assim
> my $input = "
> [% FOREACH id = dados %]
> ---------------------------------------------------------------------------------
>  Valor: [% valor %]
> ---------------------------------------------------------------------------------
> [% END %]";
> 
> .
> .
> my $ref = { dados => \@dados, };
>  my $t = Template->new;
> 
> $t->process( \$input, $ref, $out ) or die $template->error();
> 
> 
> Alguem sabe como fazer isso?? :)
> 
Você não precisa de $out. 

<code>
#Estou supondo que você já sabe sobre use strict;use warning;use Template; etc.
.
.
.

my $tt_config 	= {	'INCLUDE_PATH' 	=> $web_template_path
 			,'INTERPOLATE' 	=> 1
 		}; # Para saber mais, RTFM em Template no CPAN, por favor

my %site_config = {
$input => $template_dir. qq[/$template] #Isso deve vir via POST(de preferência)
,%config => $tt_config #variavel que contem dados de configuração do Template Toolkit
,$parameters => {param1 => '1',param2 => '2'}
};

<seu_codigo_aqui>

my %vars = {	 'template_dir' => $site_config{template_dir}
		,'parameters'	=> $parameters
	}; # só um exemplo... você pode colocar o que precisar aqui

$tt->process($input,$vars) || print "Template process failed: ", $tt->error(), "\n" ;


</code>

<arquivo_de_template>
.
.
. 

Parametro 1: [%parameters.param1%] <br>
Parametro 2: [%parameters.param2%] 

.
.
.

</arquivo_de_template>

> 
> Obrigada


Chega, preciso trabalhar... 


Cheers!
 

PS: Não testei o código.

--
André Garcia Carneiro
Developer(Perl/PHP)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org