В какой кодировке readpipe возвращает результат выполненной команды?

Question

Вот простой скрипт, который Perl должен написать UTF-8 закодированный файл:

use warnings; 
use strict; 

open (my $out, '>:encoding(utf-8)', 'tree.out') or die; 

print $out readpipe ('tree ~'); 

close $out; 

Я ожидал readpipe вернуть UTF-8 закодированную строку, так как LANG установлен в en_US.UTF-8. Тем не менее, глядя на tree.out (при этом убедитесь, что редактор распознает его как кодировку utf-8) показывает мне весь искаженный текст.

Если изменить >:encoding(utf-8) в открытом заявлении >:encoding(latin-1), сценарий создает UTF-8 файл с ожидаемым текста.

Это все немного странно для меня. Каково объяснение этого поведения?

Answer 1

readpipe возвращает perl строку неуказанных байтов. Мы знаем, что эта строка кодируется в кодировке UTF-8, но вы не сказали Perl.

Уровень ввода-вывода на вашем дескрипторе вывода принимает эту строку, считая ее кодовыми точками Юникода и перекодируя их как байты UTF-8.

Причина, по которой уровень латинского ввода 1-го уровня функционирует правильно, заключается в том, что он выдает каждый незакодированный байт без возможности восстановления, потому что первые 256 кодов Unicode хорошо согласуются с латинским-1.

Правильная вещь должна состоять в том, чтобы decode байт-строка, возвращаемая readpipe, в кодовую строку, прежде чем подавать ее на слой ввода-вывода. Заявление use open ':utf8', как упоминалось Бородина, должно быть жизнеспособным решением, так как readpipe конкретно упоминается в open manual page.