Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

IO::File and use open qw(:std :utf8)

by coolmichael (Deacon)
on Jan 30, 2013 at 02:16 UTC ( #1015948=perlquestion: print w/ replies, xml ) Need Help??
coolmichael has asked for the wisdom of the Perl Monks concerning the following question:

IO::File->open() doesn't seem to respect use open() in the following program, which is odd to me and seems to be against the documentation. Or maybe I'm doing it wrong. Rewriting my code to not use IO::File shouldn't be difficult.

Perlmonks is displaying the unicode character U+0213 as &#513 below, but it really is the correct unicode character in the source file.

I expect the output to be

$VAR1 = \"Hello \x{213} (r-caret)"; Hello ȓ (r-caret) Hello ȓ (r-caret) Hello ȓ (r-caret)

But I'm getting this error: "Oops: Malformed UTF-8 character (unexpected end of string) in print at ./run.pl line 33."

That doesn't seem right to me at all.

#!/usr/local/bin/perl use utf8; use v5.16; use strict; use warnings; use warnings qw(FATAL utf8); use diagnostics; use open qw(:std :utf8); use charnames qw(:full :short); use File::Basename; my $application = basename $0; use Data::Dumper; $Data::Dumper::Indent = 1; use Try::Tiny; my $str = "Hello &#531; (r-caret)"; say Dumper(\$str); open(my $fh, '<', \$str); print while ($_ = $fh->getc()); close($fh); print "\n"; try { use IO::File; my $fh = IO::File->new(); $fh->open(\$str, '<'); print while ($_ = $fh->getc()); $fh->close(); print "\n"; } catch { say "\nOops: $_"; }; try { use IO::File; my $fh = IO::File->new(); $fh->open(\$str, '<:encoding(UTF-8)'); print while ($_ = $fh->getc()); $fh->close(); print "\n"; } catch { say "\nOops: $_"; };

Comment on IO::File and use open qw(:std :utf8)
Select or Download Code
Re: IO::File and use open qw(:std :utf8)
by Kenosis (Priest) on Jan 30, 2013 at 03:10 UTC
Re: IO::File and use open qw(:std :utf8)
by mbethke (Hermit) on Jan 30, 2013 at 03:17 UTC

    The open pragma is lexically scoped so its effect doesn't extend to the open() performed internally by IO::File. Unfortunately I don't know if there's a way to make this effect global, short of "insert these opcodes on top of every loaded module"-style hacks.

    Edit: hum, should've read Stackoverflow first ...

Re: IO::File and use open qw(:std :utf8)
by Anonymous Monk on Jan 30, 2013 at 08:42 UTC
Re: IO::File and use open qw(:std :utf8)
by choroba (Abbot) on Jan 30, 2013 at 12:37 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1015948]
Approved by mbethke
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (10)
As of 2014-10-02 13:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (56 votes), past polls