PerlIO::encoding - 编码层
use PerlIO::encoding;
open($f, "<:encoding(foo)", "infoo");
open($f, ">:encoding(bar)", "outbar");
use Encode qw(:fallbacks);
$PerlIO::encoding::fallback = FB_PERLQQ;
此 PerlIO 层使用透明编码过滤器打开文件句柄。
在输入时,它将预期以指定字符集和编码表示的字节转换为 Perl 字符串数据(Unicode 和 Perl 的内部 Unicode 编码,UTF-8)。在输出时,它将 Perl 字符串数据转换为指定的字符集和编码。
当层被推入时,当前 $PerlIO::encoding::fallback
的值将被保存并用作调用 Encode 方法 encode() 和 decode() 时的 CHECK 参数。