foo
foo with an –
some latin1 encoded chars: æøå ÆØÅ
same, but this time whith an – .. æøå ÆØÅ
same, but this thime with an ” instead .. : æøå ÆØÅ
##
my $xmldata = XMLin( $ARGV[0], ForceArray=>1, KeyAttr=>{meta=>"name"} , SuppressEmpty=>"") or die "Could not parse xml data: $!";
foreach my $f ( @{$xmldata->{'p'} } ) {
print $f;
print "\n";
}
print Dumper($xmldata);
####
./test2.pl foo.xml
foo
Wide character in print at ./test2.pl line 12.
foo with an –
some latin1 encoded chars: æøå ÆØÅ
Wide character in print at ./test2.pl line 12.
same, but this time whith an – .. æøå ÆØÅ
Wide character in print at ./test2.pl line 12.
same, but this thime with an ” instead .. : æøå ÆØÅ
$VAR1 = {
'p' => [
'foo',
"foo with an \x{2013}",
'some latin1 encoded chars: æøå ÆØÅ',
"same, but this time whith an \x{2013} .. \x{c3}\x{a6}\x{c3}\x{b8}\x{c3}\x{a5} \x{c3}\x{86}\x{c3}\x{98}\x{c3}\x{85}",
"same, but this thime with an \x{201d} instead .. : \x{c3}\x{a6}\x{c3}\x{b8}\x{c3}\x{a5} \x{c3}\x{86}\x{c3}\x{98}\x{c3}\x{85}"
]
};