Comment puis-je sortie de l'UTF-8 à partir de Perl?

Je suis en train d'écrire un script Perl à l'aide de la "utf8" pragma, et j'obtiens des résultats inattendus. Je suis sous Mac OS X 10.5 (Leopard), et je suis en train de monter avec TextMate. Tous mes paramètres de mon éditeur et de son système d'exploitation par défaut, l'écriture de fichiers au format utf-8.

Cependant, quand j'ai entrez le texte suivant dans un fichier texte, l'enregistrer en tant que ".pl", et de l'exécuter, j'ai l'amicale "losange 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 à obtenir 'Çirçös" dans la sortie, mais j'obtiens '�ir��s " à la place.

  • C'est peut-être pas le programme .. je pense que votre shell oder votre éditeur qui fait la sortie
  • Toutes les réponses répondre correctement à votre question de la manière de la définir explicitement à l'UTF8. Je pense que vous devriez être ajuster les paramètres régionaux de votre terminal comme indiqué dans le stackoverflow.com/a/14405949/498634. Le terminal pourrait ne pas être mise en UTF8, et les données écrites sur la sortie standard en UTF8 sera codé de manière incorrecte!
InformationsquelleAutor | 2009-03-09
  1. 152

    use utf8; ne permet pas Unicode sortie - il vous permet de type Unicode dans votre programme. Ajoutez à cela le programme, avant votre print() déclaration:

    binmode(STDOUT, ":utf8");

    Voir si cela aide. Que doit faire STDOUT sortie en UTF-8 au lieu ordinaire ASCII.

    • Je ne savais pas (je ne l'ai été de mettre en UTF8 dans une base de données, ne jamais l'impression). +1.
    • Qui a travaillé, Chris. Merci!!!!
    • Vous êtes les bienvenus. Voir aussi une autre réponse correcte: stackoverflow.com/questions/627661/writing-perl-code-in-utf8/... et n'oubliez pas, TMTOWTDI. Et @Paul - si vous êtes à la rédaction de l'UTF-8 dans un fichier, vous devriez probablement utiliser binmode() sur ce descripteur de fichier et de le rendre "propre" UTF-8, mais si cela fonctionne..
    • ...ne le répare pas, hein?
    • d'autres moyens: l'open pragma ( search.cpan.org/perldoc/open ), le commutateur-C ( perldoc.perl.org/perlrun.html#-C )
    • J'ai hésiter à le commutateur-C parce que pas tous les Perl (c'est à dire ActivePerl) peut traiter les commutateurs de ligne de commande bien (à ma connaissance),
    • FWIW voici la raison: les chaînes de caractères qui contient uniquement latin1 (ISO-8859-1) caractères, en dépit de stockage plus ou moins en utf8, sera de sortie comme latin1 par défaut. De cette façon, les scripts à partir d'un pré-unicode ère fonctionnent toujours le même, même avec une unicode perl.
    • L'utf8 pragma ne vous permet pas d'écrire votre source en UNICODE, il oblige à comprendre de vos sources en UTF-8 ou UTF-EBCDIC) codage d'UNICODE, une distinction importante.
    • Légèrement hors sujet: À mon avis UTF-8 dans le perl est un mess! Parfois, il est utile de savoir que l'on est pas seul. Voir mon post: Pourquoi ai-je tant de peine et de douleur avec de l'UTF-8 en perl?
    • Comme par Perl 5.8.8, je ne peux pas obtenir ce travail lorsqu'il essaie d'écrire des chaînes Unicode dans un fichier (je l'ai eu d'avertissement comme "caractère Large de l'impression ..."), bien que d'autres disent qu'ils ont fait. L'open pragma on travaille.

    InformationsquelleAutor Chris Lutz
  2. 82

    Vous pouvez utiliser le ouvrir pragma.

    Pour eg. ci-dessous définit STDOUT, STDIN & STDERR pour utiliser l'UTF-8....

    use open qw/:std :utf8/;
    • Aussi bon. Je +1, mais je suis hors de la voix pour aujourd'hui.
    • BTW... j'ai donné u +1. Je pense que binmode(STDOUT, ':utf8") est probablement plus approprié dans cette situation. "ouvertes" a d'autres bons usages mais je n'arrive pas à trouver comment u peut définir qu'il suffit d'encoder STDOUT seulement?
    InformationsquelleAutor draegtun
  3. 64

    TMTOWTDI, a choisi la méthode qui convient le mieux à votre façon de travailler. J'utilise l'environnement de la méthode donc je n'ai pas à y penser.

    Dans le environnement:

    export PERL_UNICODE=SDL

    sur le 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 la ouvrir pragma:

    use open ":encoding(utf8)";
use open IN => ":encoding(utf8)", OUT => ":utf8";
    • -CSDL a fonctionné pour moi où binmode seul n'a pas.
    • +1 pour une réponse complète; à noter que l' SDL est implicite à la fois avec -C et PERL_UNICODE. Le use open ':locale' pragma est également à souligner, parce que c'est le script équivalent de -C et export PER_UNICODE=. L'une de ces 3 vous donnera le support UTF8 pour toutes les entrées et les flux de sortie (si les fichiers ou stdin/stdout/stderr), en supposant que votre environnement locale de l'est de l'utf-8-basé. Enfin, à traiter également source code UTF8, utilisez le use utf8; pragma.
    • perl -Mutf8 -CSDL -e '...' permet de consommer/sortie UTF-8 dans que l'utilisation de l'UTF-8 littéraux à l'intérieur de -e par exemple, pour un pauvre homme d'un dossier de cas: perl -Mutf8 -CASDL -pe 'y/āáǎàēéěèīíǐìōóǒòūúǔùǖǘǚǜĀÁǍÀĒÉĚÈĪÍǏÌŌÓǑÒŪÚǓÙǕǗǙǛ/aaaaeeeeiiiioooouuuuüüüüAAAAEEEEIIIIOOOOUUUUÜÜÜÜ/'
    InformationsquelleAutor Chas. Owens
  4. 1

    Vous aussi vous voulez dire, que les chaînes de caractères dans votre code utf-8. Voir Pourquoi n'moderne Perl éviter UTF-8 par défaut?. Donc, non seulement PERL_UNICODE=SDAL mais aussi PERL5OPT=-Mutf8.

    InformationsquelleAutor Hans Ginzel
  5. 0

    Grâce, a finalement obtenu une solution à ne pas le mettre en utf8::encode tous les cours de code.
    Pour synthétiser et compléter pour les autres cas, comme celui d'écrire et de lire des fichiers en utf8 et travaille également avec LoadFile d'un fichier YAML en 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
    InformationsquelleAutor Sérgio
  6. -3

    faire dans votre shell:
    $ env |grep LANG

    Ce sera probablement montrer que votre shell n'est pas à l'aide d'une locale utf-8.

    • En fait, il a été mis en utf-8. Le problème était que j'étais sortie sur STDOUT sans réglage binmode de l'utf-8;
    • Ce serait un orthogonale préoccupation. Vous avez besoin de votre script Perl pour la sortie des données correctes avant de vous pouvez vous soucier de comment votre émulateur de terminal de l'interprète.
    InformationsquelleAutor nxadm