open

СОДЕРЖАНИЕ

• ИМЯ
• СИНТАКСИС
• ОПИСАНИЕ
• ДЕТАЛИ РЕАЛИЗАЦИИ
• СМОТРИТЕ ТАКЖЕ

ИМЯ

open - pragma Perl для установки по умолчанию слоев PerlIO для входных и выходных данных

СИНТАКСИС

use open IN  => ':crlf', OUT => ':raw';
open my $in, '<', 'foo.txt' or die "open failed: $!";
my $line = <$in>; # CRLF translated
close $in;
open my $out, '>', 'bar.txt' or die "open failed: $!";
print $out $line; # no translation of bytes
close $out;

use open OUT => ':encoding(UTF-8)';
use open IN  => ':encoding(iso-8859-7)';

use open IO  => ':locale';

# IO implicit only for :utf8, :encoding, :locale
use open ':encoding(UTF-8)';
use open ':encoding(iso-8859-7)';
use open ':locale';

# with :std, also affect global standard handles
use open ':std', ':encoding(UTF-8)';
use open ':std', OUT => ':encoding(cp1252)';
use open ':std', IO => ':raw :encoding(UTF-16LE)';

ОПИСАНИЕ

Полная поддержка слоев ввода-вывода теперь реализована, при условии, что Perl настроен на использование PerlIO в качестве своей системы ввода-вывода (что является стандартным со версии 5.8 и единственным поддерживаемым с версии 5.16).

Pragma open служит одним из интерфейсов для объявления по умолчанию «слоев» (ранее известные как «дисциплины») для всех операций ввода-вывода. Любые операторы open(), readpipe() (также известные как qx//) и аналогичные, находящиеся в лексическом пространстве действия этого pragma, будут использовать объявленные значения по умолчанию через переменную ${^OPEN}.

Слои указываются по соглашению с ведущим двоеточием. Вы можете указать стек из нескольких слоёв как строку, разделённую пробелами. Для получения дополнительной информации о доступных слоях см. PerlIO.

С помощью под-pragma IN вы можете объявить слои по умолчанию для входных потоков, а с помощью под-pragma OUT вы можете объявить слои по умолчанию для выходных потоков. С помощью под-pragma IO (которое можно опустить для :utf8, :locale, или :encoding) вы можете управлять входными и выходными потоками одновременно.

Когда open() получает явный список слоёв (с синтаксисом из трёх аргументов), они переопределяют список, объявленный с помощью этого pragma. open() также может получить одно двоеточие (:) для имени слоя, чтобы переопределить этот pragma и использовать значение по умолчанию, как подробно описано в "Значения по умолчанию и как их переопределить" в PerlIO.

Для преобразования из и в произвольное кодирование символов используйте слой :encoding. Сопоставление имён кодировок в :encoding является приблизительным: регистр не учитывается, и многие кодировки имеют несколько псевдонимов. Подробности и список поддерживаемых локалей см. в Encode::Supported.

Если вы хотите установить слои кодировки на основе переменных среды вашего языка, вы можете использовать псевдослой :locale. Например:

$ENV{LANG} = 'ru_RU.KOI8-R';
# the :locale will probe the locale environment variables like LANG
use open OUT => ':locale';
open(my $out, '>', 'koi8') or die "open failed: $!";
print $out chr(0x430); # CYRILLIC SMALL LETTER A = KOI8-R 0xc1
close $out;
open(my $in, '<', 'koi8') or die "open failed: $!";
printf "%#x\n", ord(<$in>); # this should print 0xc1
close $in;

Логика :locale подробно описана в "Под-pragma :locale" в encoding, но вкратце, она сначала пытается получить nl_langinfo(CODESET), а затем определяет по переменным среды LC_ALL и LANG.

:locale также неявно включает :std.

:std не является слоем, а дополнительным под-pragma. Когда он указан в списке импорта, он активирует дополнительную функциональность, позволяющую перемещать слои, выбранные для входных/выходных дескрипторов, в стандартные файловые дескрипторы (STDIN, STDOUT, STDERR). Если новые слои и существующий стек слоёв заканчиваются слоем :encoding, существующий слой :encoding также будет удалён.

Например, если вход и выход выбраны как :encoding(UTF-8), то :std означает, что STDIN, STDOUT и STDERR также будут иметь :encoding(UTF-8). С другой стороны, если только вывод выбран как :encoding(koi8r), то :std приведёт к тому, что только STDOUT и STDERR будут иметь koi8r.

Действие :std не является лексическим, поскольку оно изменяет стек слоёв глобальных дескрипторов. Если вы хотите применить только это глобальное действие, а не действие на дескрипторы, открытые в этом пространстве, вы можете изолировать вызов этого pragma в своём собственном лексическом пространстве.

{ use open ':std', IO => ':encoding(UTF-8)' }

ДЕТАЛИ РЕАЛИЗАЦИИ

В PerlIO::Layer find существует метод класса, который реализован как XS-код. Он вызывается import для проверки слоёв:

PerlIO::Layer::->find("perlio")

Возвращаемое значение (если определено) — это объект Perl класса PerlIO::Layer, созданный кодом на C в perlio.c. Пока что в Perl нет ничего полезного, что можно сделать с этим объектом.

СМОТРИТЕ ТАКЖЕ

"binmode" в perlfunc, "open" в perlfunc, perlunicode, PerlIO, encoding