Le 15.07.11 21:41, Michael Peters via RT a écrit :
Show quoted text
Hello,
Thanks a lot, but I still have some encoding problem if I use the "use
utf8" pragma. Look my following example: with "use utf8" the result is
wrong, without it's good. But as far as I know, my source beeing in UTF8
I must use the "utf8" pragma.
I use HTML::Template 2.10, perl 5.8.8 built for
x86_64-linux-thread-multi, Apache/2.2.3 on Red Hat Enterprise Linux
Server release 5.6 (Tikanga)
Thanks to tell me if I am wrong somewhere,
Kind regard
--------------------- test_utf8.pl ---------------------
#!/usr/local/bin/perl
use utf8;
use HTML::Template; # HTML Template module to display HTML pages
my ($hometmpl);
$hometmpl = HTML::Template->new(
NORMALBODY => 1,
die_on_bad_params => 0,
filename => "test_utf8.tmpl",
utf8 => 1
);
$hometmpl->param(
h_100 => "éèàéà ($using_mod_perl)"
);
print "Content-type: text/html; charset=utf-8\n\n", $hometmpl->output;
--------------------- test_utf8.tmpl ---------------------
<!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" xml:lang="fr" lang="fr">
<head>
<meta content="text/html; Charset=UTF-8" http-equiv="content-type" />
</head>
<body>
<h2><TMPL_VAR ESCAPE=HTML NAME="h_100"></h2>
</body>
</html>
