Re: Lost in encoding in Twig


We don't bite newbies here... much
	PerlMonks

Re: Lost in encoding in Twig

by Krambambuli (Curate)

on Jan 09, 2015 at 16:46 UTC ( [id://1112778]=note: print w/replies, xml )

Need Help??

in reply to Lost in encoding in Twig

Try this:

#!/usr/bin/perl

use strict;

use XML::Twig;
use Encode qw( decode );

my $twig=XML::Twig->new(pretty_print => 'indented');
   $twig->parse( '<?xml version="1.0" encoding="UTF-8"?><myxml/>'); 

my $root= $twig->root;  

$root->set_att( 'fille' => decode('UTF-8', 'clémence') );

open(PF, ">", "out.xml") or die "can't open file $!\n";

$twig->print(\*PF);
[download]

Krambambuli
---