<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
Oi pessoal, vou deixar claro algumas coisas aqui, coloco umas palavras exemplo: naum, eh e etc.. Porque a codificacaum da lista esta vindo as palavras com '?' no lugar dos acento, sobre o portugues eu nunca fui bom nisso, agora vamos valar do que importante, no momentos estou usando esse modulos:<BR>
<BR>
warnings<BR>
stricts<BR>
Template<BR>
DBI<BR>
<BR>
meu codigo esta assim:<BR>
<BR>
arquivo index.pl<BR>
#!/usr/bin/perl<BR>
use CGI::Carp qw(fatalsToBrowser);<BR>use warnings;<BR>use strict;<BR>use Classes::Temp;<BR>
print "Content-type: text/html\n\n";<BR>
my $variaveis = {<BR> nome => 'Lucas'<BR>};<BR>
my $template = Classes::Temp->new('index.html', $variaveis);<BR>$template->Display();<BR>
<BR>
arquivo Temp.pm<BR>
package Classes::Temp;<BR>
use warnings;<BR>use strict;<BR>use Template;<BR>
sub new {<BR> my $this = shift;<BR> my $class = ref($this) || $this;<BR> my $self = {<BR> arquivo => shift,<BR> variaveis => shift, <BR> };<BR> return bless $self, $class;<BR>}<BR>
sub Display {<BR> my $self = shift;<BR> my $valor = shift;<BR> $self->{arquivo} = $valor if ($valor);<BR> $self->{variaveis} = $valor if ($valor);<BR> my $template = Template->new();<BR> return $template->process('Templates/' . $self->{arquivo}, $self->{variaveis}) || die "Erro: ", $template->error(), "\n"; <BR>}<BR>
1;<BR>
<BR>
por enquanto so tenho isso.<BR>
<BR>
O Luis Motta Campos arruma uma namorada amigo rsrsrs!<BR>
<BR>                                            <br /><hr />Voeg eenvoudig je Hyves vrienden toe aan je <a href='http://www.microsoft.com/netherlands/windowslive/Views/productdetail.aspx?product=MessengerHyves&WT.mc_id=msn3' target='_new'>Hotmail en Messenger.</a></body>
</html>