utf8 && XML::Simple

Hi All,
Can anyone explain why this fails on perl 5.8.3? I tried various utf8 tricks, but I can't get it to work...
Thanks.
Zak
Update: johnnywang++ and borisz++. Write file out as utf8, but read in a file using XML::Simple's XMLin interface!

use XML::Simple qw(:strict);
use Encode;
# use open 'utf8'; # Can't get this to work - should open all files as
+ utf8...
use Data::Dumper;

my $val;
$val->{utfchar} = "\x{10a0}";

my $xml = XMLout($val,KeyAttr=>{item=>'name});
open (OUT,">out.xml");
  print OUT $xml;
close OUT;

# Yes, I could use a different slurp funciton...
my $readin="";
open (IN,"<out.xml");
while (<IN>){
  $readin = $readin . $_;
}
close IN;
my $result = XMLin($readin,KeyAttr=>{item=>'name'},ForceArray=>1);

if ($result->{utfchar} eq "\x{10a0}"){
  print "Wohoo!\n";
}
else {
  print "Doh!\n";
}

[download]

----
Zak - the office

Comment on utf8 && XML::Simple Download Code
Re: utf8 && XML::Simple by borisz (Canon) on Feb 01, 2005 at 17:14 UTC
What about `use open ':utf8';`? Wohoo! for me. Boris	[reply]
Re^2: utf8 && XML::Simple by zakzebrowski (Curate) on Feb 01, 2005 at 17:17 UTC
Thanks for replying. In my (much more complicated real life) file, I get "Cannot decode string with wide characters at /usr/../Encode.pm line 184." ---- Zak - the office	[reply]
Re^3: utf8 && XML::Simple by borisz (Canon) on Feb 01, 2005 at 17:30 UTC
most likely your input data is arady in utf8 and you want to convert it a second time to utf8. for example: `use Encode; my $str = "hi"; # hi is a notmal string. $str .= chr(0x1234); # str is now a utf8 string Encode::decode_utf8($str, 1); # here you get the error.` [download] Propably you exchange encode and decode. Or the decode function call is not needed in your case. Boris	[reply] [d/l]
Re: utf8 && XML::Simple by johnnywang (Priest) on Feb 01, 2005 at 18:11 UTC
Just want to point out (this is not what you're asking) that XMLin can also take a file name as first argument. So instead of: `# Yes, I could use a different slurp funciton... my $readin=""; open (IN,"<out.xml"); while (<IN>){ $readin = $readin . $_; } close IN; my $result = XMLin($readin,KeyAttr=>{item=>'name'},ForceArray=>1);` [download] you can just say: `my $result = XMLin("out.xml",KeyAttr=>{item=>'name'},ForceArray=>1);` [download]	[reply] [d/l] [select]
Re^2: utf8 && XML::Simple by zakzebrowski (Curate) on Feb 01, 2005 at 18:26 UTC
++ ++ !! This technique works. It looks like XML::Simple will automatically read in a file as utf8. So, you must explicilty write a file as utf8, and just use the XMLin method explicitly to read the file... Thanks! Zak ---- Zak - the office	[reply]


laziness, impatience, and hubris
	PerlMonks

utf8 && XML::Simple

The best material for plates (tableware) is: