perlでXML
sample data
<?xml version='1.0'?> <aaa> <bbb ccc="ddd"> あああ </bbb> <bbb ccc="eee"> いいい </bbb> </aaa>
perl
#!/usr/bin/perl use XML::Simple; use Data::Dumper; use Unicode::Japanese; my $data = XMLin("data.xml"); print Dumper($data); $a = $data->{'bbb'}[0]{'content'}; print Unicode::Japanese->new($a)->sjis;