読者です 読者をやめる 読者になる 読者になる

m6u's blog

便利な製品・サービス・アプリを見つけては、その評価を書き続けるブログ

XMLの中の文字参照表記をデコードしてみるテスト

#!/C/perl/perl -w
use Encode;
use XML::Simple;
use Data::Dumper;
use strict;

my $rData = XMLin($ARGV[0]);

#print Dumper($rData);

my $val = $rData->{routedata}->{routenm};
$val =~ s/\&\#x([a-fA-F0-9]{4})\;/pack("C",hex($1))/eg;

print encode("shiftjis", $val);

 なんとかデコードできたみたいです。 サンクス>id:cubick