Comment puis-je sortir UTF-8 depuis Perl?

J'essaye d'écrire un script Perl en utilisant le pragma "utf8" et j'obtiens des résultats inattendus. J'utilise Mac OS X 10.5 (Leopard) et j'édite avec TextMate. Tous mes paramètres pour mon éditeur et mon système d'exploitation sont définis par défaut sur l'écriture de fichiers au format utf-8.

Cependant, lorsque j'entre ce qui suit dans un fichier texte, que je l'enregistre en tant que ".pl" et que je l'exécute, j'obtiens le sympathique "diamant avec un point d'interrogation" à la place des caractères non ASCII.

#!/usr/bin/env perl -w

use strict;
use utf8;

my $str = 'Çirçös';
print( "$str\n" );

Une idée de ce que je fais mal? Je m'attends à avoir 'Çirçös' dans la sortie, mais j'obtiens à la place ' ir s'.

use utf8;n'active pas la sortie Unicode - il vous permet de taper Unicode dans votre programme. Ajoutez ceci au programme, avant votre print()déclaration:

binmode(STDOUT, ":utf8");

Voyez si cela aide. Cela devrait produire une STDOUTsortie en UTF-8 au lieu de l'ASCII ordinaire.

Vous pouvez utiliser le pragma ouvert .

Pour par exemple. ci-dessous définit STDOUT, STDIN & STDERR pour utiliser UTF-8 ....

use open qw/:std :utf8/;

TMTOWTDI , a choisi la méthode qui correspond le mieux à votre façon de travailler. J'utilise la méthode de l'environnement pour ne pas avoir à y penser.

Dans l' environnement :

export PERL_UNICODE=SDL

sur la ligne de commande :

perl -CSDL -le 'print "\x{1815}"';

ou avec binmode :

binmode(STDOUT, ":utf8");          #treat as if it is UTF-8
binmode(STDIN, ":encoding(utf8)"); #actually check if it is UTF-8

ou avec PerlIO :

open my $fh, ">:utf8", $filename
    or die "could not open $filename: $!\n";

open my $fh, "<:encoding(utf-8)", $filename
    or die "could not open $filename: $!\n";

ou avec le pragma ouvert :

use open ":encoding(utf8)";
use open IN => ":encoding(utf8)", OUT => ":utf8";

Vous voulez également dire que les chaînes de votre code sont utf-8. Voir Pourquoi Perl moderne évite-t-il UTF-8 par défaut? . Alors défini non seulement PERL_UNICODE=SDALmais aussi PERL5OPT=-Mutf8.

Merci, enfin obtenu une solution pour ne pas mettre utf8 :: encoder partout dans le code. Pour synthétiser et compléter pour d'autres cas, comme écrire et lire des fichiers dans utf8 et fonctionne également avec LoadFile d'un fichier YAML dans utf8

use utf8;
use open ':encoding(utf8)';
binmode(STDOUT, ":utf8");

open(FH, ">test.txt"); 
print FH "something éá";

use YAML qw(LoadFile Dump);
my $PUBS = LoadFile("cache.yaml");
my $f = "2917";
my $ref = $PUBS->{$f};
print "$f \"".$ref->{name}."\" ". $ref->{primary_uri}." ";

où cache.yaml est:

---
2917:
  id: 2917
  name: Semanário
  primary_uri: 2917.xml

faire dans votre shell: $ env | grep LANG

Cela montrera probablement que votre shell n'utilise pas de paramètres régionaux utf-8.