Só corrigindo:<br>Inserindo variável no pro_process<br>Inserindo variável no pre_process<br><br><a href="http://head.info">head.info</a><br><a href="http://header.info">header.info</a><br><br><br><div class="gmail_quote">2008/12/12 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Minha dúvida é a seguinte, eu tenho um arquivo que chama <a href="http://head.info" target="_blank">head.info</a>:<br>
<code><br><br>1<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><br>2<html><br>3<head><br>
4 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><br>5 <link rel="stylesheet" href="../style.css" /><br>6 <title>[% title %]</title><br>
7 </head><br clear="all"><br></code><br>Na linha 7 eu quero por o título, mas não sei como faço isso incluindo uma variável em um pré processo, olha meu código:<br><code><br><br> 1 #!/usr/bin/perl<br> 2 <br>
3 BEGIN {<br> 4 my $homedir = ( getpwuid($>) )[7];<br> 5 my @user_include;<br> 6 foreach my $path (@INC) {<br> 7 if ( -d $homedir . '/perl' . $path ) {<br> 8 push @user_include, $homedir . '/perl' . $path;<br>
9 }<br> 10 }<br> 11 unshift @INC, @user_include;<br> 12 }<br> 13 <br> 14 <br> 15 use strict;<br> 16 use warnings;<br> 17 use Template;<br> 18 use CGI qw/ :standard/;<br> 19 <br> 20 # some useful options (see below for full list)<br>
21 my $config = {<br> 22 INCLUDE_PATH => '/home/redrosec/public_html/cgi-bin/', # or list ref<br> 23 INTERPOLATE => 1, # expand "$var" in plain text<br> 24 POST_CHOMP => 1, # cleanup whitespace <br>
25 PRE_PROCESS => '<a href="http://header.info" target="_blank">header.info</a>',# prefix each template<br> 26 EVAL_PERL=> 1, # evaluate Perl code blocks<br> 27 };<br> 28 <br> 29 <br> 30 my $vars = {<br>
31 'title' => "Hello World"<br>
32 };<br> 33 # create Template object<br> 34 my $template = Template->new($config, $vars);<br> 35 <br> 36 # specify input filename, or file handle, text reference, etc.<br> 37 my $input = '<a href="http://begin.tt" target="_blank">begin.tt</a>';<br>
38 <br> 39 # process input template, substituting variables<br> 40 $template->process($input) || die $template->error();<br> 41 <br> 42 print<<'GOOGLE';<br> 43 <p align=center><br> 44 <script type="text/javascript"><!--<br>
45 google_ad_client = "pub-6551982862465531";<br> 46 /* 728x90, criado 04/12/08 */<br> 34,29 Início<br>
</code><br><br>Eu quero inserir a variável na linha 31, dentro do <a href="http://header.info" target="_blank">header.info</a> e não tenho ideia de como fazer.<br><font color="#888888">-- <br>Procuro emprego C.V:<br>
<a href="http://danielmantovani.awardspace.com/" target="_blank">http://danielmantovani.awardspace.com/</a><br>
<br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br><br>
</font></blockquote></div><br><br clear="all"><br>-- <br>Procuro emprego C.V:<br><a href="http://danielmantovani.awardspace.com/">http://danielmantovani.awardspace.com/</a><br><br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
<br>