Foro - Perl en Español

por **danimera** » 2010-01-19 17:24 @767

En la ayuda pude leer:

You can assign a default value to a variable with the DEFAULT attribute. For example, this will output "the devil gave me a taco" if the "who" variable is not set.

The <TMPL_VAR NAME=WHO DEFAULT=devil> gave me a taco.

Pero cuando lo utilizo en mi template me genera un error.

HTML::Template->new() : Syntax error in tag

No se qué puede ser. La idea es colocar un valor por defecto a la plantilla.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
 
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Advance Scientific de Colombia : <TMPL_VAR NAME=TITULO> </title>
<link rel="stylesheet" type="text/css" href="styles.css" />
<script language="JavaScript1.2" src="function.js"><script>
</head>
 
<body>
 
<div id="marcoPrincipal">
        <div id="marcoLogo">
 
        <img alt="advance scientific group" src="images/logo.jpg" width="140" height="146" />
 
        <br />
        ¡Innovando para Salvar Vidas!</div>
 
        <div id="marcoMenuFlash">
        <div class="menu">
    <span class="textomenu">
    <a href="?mode=viewpage&id=1&BQINX=1">
         Home
    </a>
    </span>
        &nbsp;&nbsp;&nbsp;&nbsp;
        <span class="textomenu">
    <a href="?mode=viewpage&id=2">
         Quienes Somos
    </a>
    </span>
        &nbsp;&nbsp;&nbsp;&nbsp;
    <span class="textomenu">
    <a href="?mode=viewpage&id=3">
         Productos
    </a>
    </span>
        &nbsp;&nbsp;&nbsp;&nbsp;
        <span class="textomenu">
    <a href="?mode=viewpage&id=5">
         Unidades de Negocios
    </a>
    </span>
        &nbsp;&nbsp;&nbsp;&nbsp;
    <span class="textomenu">
    <a href="?mode=viewpage&id=6">
         Contacto
    </a>
    </span>
        </div>
    <br>
        
        </div>
 
 
        <div id="marcoNoticias">
        <div class="barraNoticias">
                Noticias</div><br />
        ha implementado un nuevo sistema para aliviar los dolores.
        <br />
        <br />
        <span>Leer mas.</span>
    <br>
    <br>
    ha implementado un nuevo sistema para aliviar los dolores.
        <br />
        <br />
        <span>Leer mas.</span>
    <br>
    <br>
    ha implementado un nuevo sistema para aliviar los dolores.
        <br />
        <br />
        <span>Leer mas.</span>
    <br>
    <br>
    <TMPL_VAR NAME=NEWS>
    <TMPL_VAR NAME=WHO DEFAULT=devil>
 
 
        <br>
    <TMPL_IF NAME=BQINX>
        <div class="bloque">
                                <div class="titulosbloque">
                                        Encuesta
                                </div>
 
                
        </div>
<TMPL_ELSE>
<div class="bloque">
<div class="titulosbloque">Productos</div>
<center>
<img alt="" src="images/gif-productos-animados.gif" />
</center>
</div>
</TMPL_IF>
</br>
 
<div class="bloque">
<div class="titulosbloque">
</div>
 
<br>
 
 
 
 
        </div>
        <div id="marcoContenido">
        <div class="barraContenido">
                Bienvenido
        </div>
    <center><b><TMPL_VAR NAME=TITULO></b></center>
    <BR/><BR/>
      <TMPL_VAR NAME=CONTENIDO>
        </div>
 
 
<br>
 
</div>
<div class="antifooter">
<hr/>
<center>
<a href="index.cgi?mode=viewpage&id=9">
Nuestras Sedes
</a> -
<a href="index.cgi?mode=viewpage&id=8">
Nuestros Clientes
</a> -
<a href="index.cgi?mode=viewpage&id=7">
Casos de Exito
</a>
</center>
</div>
<br/>
<br>
<div id="footer">
Copyright Todos los derechos reservados Advance Scientific de Colombia <br>
Desarrollado por 100% Telch http://www.kreatibox.com
</div>
</body>
 
</html>
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

El error me lo tira en la línea 80.

por **explorer** » 2010-01-19 18:15 @802

Con este programa Perl de una línea, sale perfecto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl -MHTML::Template -le'$tmpl = HTML::Template->new(filename=>"code_20732.html"); $tmpl->param(NEWS=>"AQUI NEWS", WHO=>"AQUI WHO", BQINX=>1, ); print $tmpl->output; print $HTML::Template::VERSION'Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Quitando el parámetro WHO, sale el valor por defecto que se le indica en el código.

Estoy usando HTML::Template v2.9. El soporte para DEFAULT es a partir de la v2.2.

No se me ocurre nada más, salvo que quizás el error esté en el programa.

por **danimera** » 2010-01-19 19:07 @838

El error era la versión. Estaba usando la v2.3, entonces quiere decir que DEFAULT es a partir de esta versión. Actualicé a la v2.9 y con eso ya solucioné mi problema. Gracias como siempre, explorer.

Foro - Perl en Español

Parámetro DEFAULT de HTML::Template no funciona

Parámetro DEFAULT de HTML::Template no funciona

Publicidad

Re: parametro de HTML::Template no funciona DEFAULT

Re: parametro de HTML::Template no funciona DEFAULT

Re: parametro de HTML::Template no funciona DEFAULT

Re: parametro de HTML::Template no funciona DEFAULT

¿Quién está conectado?