in reply to Encode throws "Wide character in subroutine entry" when using XML::Simple

Try this (untested):

use strict;
use warnings;
use autodie;

use XML::Simple;

local $XML::Simple::PREFERRED_PARSER = 'XML::Parser';

open my $fh, '<:encoding(UTF-8)', $file;

$xml->XMLin(
    $fh,
    ForceArray => ['map'],
    KeyAttr    => {},
);

[download]

Just a thought... But see 850187.

  • Comment on Re: Encode throws "Wide character in subroutine entry" when using XML::Simple
  • Download Code

Replies are listed 'Best First'.
Re^2: Encode throws "Wide character in subroutine entry" when using XML::Simple
by ikegami (Patriarch) on Dec 12, 2010 at 00:17 UTC
    Backwards. That would cause the problem. 
    open(my $fh, '<:encoding(UTF-8)', $file);

    [download]
    should be 
    open(my $fh, '<', $file);
binmode($fh);

    [download]
[reply]
[d/l]
[select]

      That is as counterintuitive as a thing can be. You have a file that is encoded in UTF-8 and has a UTF-8 byte order mark in it, yet to solve a problem with it not being interpreted properly as UTF-8 text by a module, you have to use binmode, not the proper UTF-8 encoding layer :encoding(UTF-8). It just doesn't make sense. Who would intuit that? Obviously, not I. :-(

[reply]
[d/l]
[select]

        The encoding of the document is specified in the document, not externally (e.g. the system's locale or an HTTP header). Determining the encoding requires parsing the document, so it's up to the XML parser to do the decoding. This is why XML is considered a binary (application/) format, not a text (text/) format.

        If it was up to the caller to decode the content as you claim, the caller would have to parse the XML to determine the encoding before passing the XML to the parser. That's what makes no sense.

        yet to solve a problem with it not being interpreted properly as UTF-8 text by a module

        That's not true. It is expected to be UTF-8 by the module and treated as such. The problem is that by decoding the text, you're passing text that's not encoded using UTF-8 anymore.

[reply]

      Nope. This still throws the same errors:

          open(my $fh, '<', $file);
    binmode($fh);
    my $xml = XML::Simple->new();
    $self->{ettx} = 
        $xml->XMLin($fh, 
            ForceArray => ['map'], KeyAttr => {}, 
        )
    ->{table};

      [download]
[reply]
[d/l]

        That code doesn't run. Please provide the code you actually ran. For starters, I don't know if you've removed 

        local $XML::Simple::PREFERRED_PARSER = 'XML::Parser';

        [download]

        or not.

[reply]
[d/l]

In Section Seekers of Perl Wisdom