Encodage UTF-8 sur un handle de fichier en Perl

Question

J'applique le codage UTF-8 à STDIN et STDOUT. Cependant, comment m'assurer que j'applique le codage UTF-8 au fichier que je passe à mon code ci-dessous (<> va lire un fichier au lieu de STDIN si un fichier texte est passé sur la ligne de commande) en aussi peu de lignes possible.

use open qw(:std :utf8) 

while (<>) { 
    print; 
} 

Answer 1

Selon la documentation de open pragma, vous avez déjà le comportement que vous voulez:

Le open pragma sert une des interfaces à déclarer par défaut « couches » (également connu sous le nom " disciplines ") pour toutes les E/S. Tout open à deux arguments, readpipe (ou qx//) et les opérateurs similaires trouvés dans la portée lexicale de ce pragma utiliseront les valeurs par défaut déclarées. Même les ouvertures à trois arguments peuvent être affectées par ce pragma lorsqu'elles ne spécifient pas les couches d'E/S dans MODE.

La documentation perlop nous dit que while (<>) { ... } est équivalent à

unshift(@ARGV, '-') unless @ARGV; 
    while ($ARGV = shift) { 
    open(ARGV, $ARGV); 
    while (<ARGV>) { 
     ... # code for each line 
    } 
    }