Кодировка UTF-8 на дескрипторе файла в Perl

Question

Я применяю кодировку UTF-8 для STDIN и STDOUT. Однако как я могу убедиться, что я применяю кодировку UTF-8 к файлу, который я передаю в свой код ниже (<> будет читать из файла вместо STDIN, если текстовый файл передается в командной строке) в виде нескольких строк, таких как возможное.

use open qw(:std :utf8) 

while (<>) { 
    print; 
} 

Answer 1

Согласно документации open Pragma, вы уже получили поведение, которое вы хотите:

open Прагма служит в качестве одного из интерфейсов декларируют по умолчанию «слои» (также известный как " дисциплин ") для всех операций ввода-вывода. Любые два аргумента open, readpipe (aka qx//) и аналогичные операторы, найденные в лексической области этой прагмы, будут использовать объявленные значения по умолчанию. Эта трехмерная аргументация может быть затронута даже при использовании трех аргументов, когда они не задают уровни ввода-вывода в режиме MODE.

Документация perlop говорит нам, что while (<>) { ... } эквивалентно

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