Comment est-ce que j'élimine l'avertissement "Caractère large à l'impression" de TT?

Question

J'ai cet avertissement chaque fois que je lance mon script CGI (la sortie est rendu par modèle :: Toolkit):

Wide character in print at /usr/local/lib/perl5/site_perl/5.8.9/mach/Template.pm line 163.

Quelle est la bonne façon de l'éliminer?

je crée l'objet tt en utilisant cette config:

my %config = (
     ENCODING  => 'utf8', 
     INCLUDE_PATH => $ENV{TEMPLATES_DIR}, 
     EVAL_PERL => 1, 
} 
my $tt = Template->new(\%config); 

Answer 1

Mettre cela avant l'appel à $tt->process() d'avoir la sortie codée automatiquement:

binmode STDOUT, ':utf8'; 

Modifier: Comme mentionné daxim, il est possible d'utiliser les fonctions de codage de TT:

$tt->process($infile, $vars, '-', { binmode => ':utf8' }) 

Cela dépend de la convention largement utilisée que le nom de fichier '-' vous donne STDIN lorsqu'il est ouvert pour la lecture, et STDOUT lorsqu'il est ouvert pour l'écriture.

Édition 2: BTW, la dernière façon ne semble pas fonctionner pour moi sous mod_perl (2.0.5).

Answer 2

$tt->process($infile, $vars, $outfile, { binmode => ':encoding(UTF-8)' }) 

Ceci est documenté dans http://search.cpan.org/perldoc?Template#process%28%24template%2C_%5C%25vars%2C_%24output%2C_%25options%29.