zakzebrowski has asked for the wisdom of the Perl Monks concerning the following question:
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!
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"; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: utf8 && XML::Simple
by johnnywang (Priest) on Feb 01, 2005 at 18:11 UTC | |
by zakzebrowski (Curate) on Feb 01, 2005 at 18:26 UTC | |
by Trace On (Novice) on Apr 16, 2015 at 07:45 UTC | |
by Corion (Patriarch) on Apr 16, 2015 at 07:49 UTC | |
by Trace On (Novice) on Apr 16, 2015 at 14:15 UTC | |
Re: utf8 && XML::Simple
by borisz (Canon) on Feb 01, 2005 at 17:14 UTC | |
by zakzebrowski (Curate) on Feb 01, 2005 at 17:17 UTC | |
by borisz (Canon) on Feb 01, 2005 at 17:30 UTC |
Back to
Seekers of Perl Wisdom