にひりずむ::しんぷる - PerlIO::encodingでのfallback

id:tokuhiromさんにコメントで教えてもらいました！！ ドキュメントのバグっぽくて、s/FB_//gすれば正常に動きました。id:tokuhiromさんありがとうございます！！ ちなみにEncode2.10あたりから仕様が変わったとのうわさも・・・ あと、関数リファレンスでもなんかほげる。 use strict; use warnings; use utf8; use PerlIO::encoding; $PerlIO::encoding::fallback = sub { sprintf "<U+%04X>", shift }; binmode STDOUT => ':encoding(ascii)'; print "Hello, 世界！！\n"; Hello, <U+4E16><U+754C><U+FF01><U+FF01> Hello, <U+4E16><U+754C><U+

[n2s]

binmode ':encoding(hoge)'等でもencode()のようにfallbackするには$PerlIO::encoding::fallbackを使う、と。