Re: Pragma to handle unicode characters

[ikegami]

: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';

---

use utf8;

indicates the source file is encoded using UTF-8. Without it, Perl assumes it's encoded using iso-latin-1.

---

None of the above decodes the content of @ARGV, data read from open(FH, '-') or data read via <>. The last is being worked on.