Buenos tardes.
Soy nuevo programando en Perl.
¿Cómo puedo guardar el valor de una variable HTML::Template en un archivo plano?
-
- Publicidad
Resultado de HTML::Template
7 mensajes
• Página 1 de 1
Resultado de HTML::Template
por lalo75 » 2005-09-12 13:42 @612
- lalo75
- Perlero nuevo
- Mensajes: 4
- Registrado: 2005-09-12 13:37 @609
Publicidad
por lalo75 » 2005-09-12 14:58 @665
Me refiero al HTML generado por HTML:Template.
Este es el código que utilizo:
Este es el código que utilizo:
Using perl Syntax Highlighting
- # Abre archivos Template con formato del correo
- my $mensaje = HTML::Template->new(filename => 'formato4.tmpl');
- $mensaje->param(DETALLE => $detalle_emp);
- #Guarda HTML
- open( HTMLS, ">/htmls/prueba01.html");
- print HTMLS $mensaje;
- close (HTMLS);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
- lalo75
- Perlero nuevo
- Mensajes: 4
- Registrado: 2005-09-12 13:37 @609
por kidd » 2005-09-12 15:32 @689
Hola.
Según entiendo quieres guardar la salida de tu plantilla procesada en el archivo. Si este es el caso entonces nada más tendrías que cambiar la línea:
print HTMLS $mensaje;
por la siguiente:
print HTMLS $mensaje->output;
Hay un tutorial en el sitio que da una breve introducción al HTML::Template. Te recomiendo que le des un vistazo:
http://perlenespanol.com/archives-tut/000142.html
SALUDOS
Según entiendo quieres guardar la salida de tu plantilla procesada en el archivo. Si este es el caso entonces nada más tendrías que cambiar la línea:
print HTMLS $mensaje;
por la siguiente:
print HTMLS $mensaje->output;
Hay un tutorial en el sitio que da una breve introducción al HTML::Template. Te recomiendo que le des un vistazo:
http://perlenespanol.com/archives-tut/000142.html
SALUDOS
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por kidd » 2005-09-12 21:08 @922
Hola.
Intenta hacer lo siguiente:
SALUDOS
Intenta hacer lo siguiente:
Using perl Syntax Highlighting
open( HTMLS, ">/htmls/prueba01.html") or die("Unable to open file: $!");
$mensaje->output(print_to => *HTMLS);
close(HTMLS)
$mensaje->output(print_to => *HTMLS);
close(HTMLS)
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
SALUDOS
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
7 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados