Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Pragma to handle unicode characters

by ikegami (Patriarch)
on Dec 22, 2008 at 01:32 UTC ( [id://731950]=note: print w/replies, xml ) Need Help??


in reply to Pragma to handle unicode characters

:utf8 on input is insecure. 
binmode STDIN,  ":utf8";
binmode STDOUT, ":utf8";

[download]

should be 

binmode STDIN,  ":encoding(UTF-8)";
binmode STDOUT, ":encoding(UTF-8)";
binmode STDERR, ":encoding(UTF-8)";

[download]

and can be replaced with 

use open ':std', ':encoding(UTF-8)';

[download]

or better yet 

use open ':std', ':locale';

[download]
:utf8 on input is insecure. 
open(IN, "<utf8", "sample.txt");

[download]

should be 

open(IN, "<:encoding(UTF-8)", "sample.txt");

[download]

and can be replaced with 

use open IO => ':encoding(UTF-8)';

[download]

or 

use open IO => ':locale';

[download]
use utf8;

[download]
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.

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://731950]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others lurking in the Monastery: (2)
As of 2024-04-26 03:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found