in reply to Pragma to handle unicode characters
:utf8 on input is insecure.
:utf8 on input is insecure.
binmode STDIN, ":utf8"; binmode STDOUT, ":utf8";
should be
binmode STDIN, ":encoding(UTF-8)"; binmode STDOUT, ":encoding(UTF-8)"; binmode STDERR, ":encoding(UTF-8)";
and can be replaced with
use open ':std', ':encoding(UTF-8)';
or better yet
use open ':std', ':locale';
:utf8 on input is insecure.
open(IN, "<utf8", "sample.txt");
should be
open(IN, "<:encoding(UTF-8)", "sample.txt");
and can be replaced with
use open IO => ':encoding(UTF-8)';
or
use open IO => ':locale';
indicates the source file is encoded using UTF-8. Without it, Perl assumes it's encoded using iso-latin-1.use utf8;
None of the above decodes the content of @ARGV, data read from open(FH, '-') or data read via <>. The last is being worked on.
|
---|
In Section
Seekers of Perl Wisdom