blog.nomadscafe.jp

XML::Simpleで変換したPerlのデータ構造を一気に文字コード変換するかなり荒っぽい方法。

$xmlにXMLデータが入っているとして、
use XML::Simple;
use Data::Dumper;
my $ret = eval{
  my $ref=XML::Simple::XMLin($xml);
  my $VAR1=Data::Dumper::Dumper($ref);
  #$VAR1= pack('C0A*',$VAR1);#Perl 5.6以下のUTF-8フラグを外す場合
  return eval(Jcode->new($VAR1)->euc);
}

XMLに何が入っているかわからないと危険が伴う、諸刃の剣。素人にはお薦め出来ない(w