Hello again,
> > > Now I can strip this (maybe) utf8 flags after "URL-decode",
> > > but these data
> > > becomes utf8 again just before DB2 insert modules.
> When I processed all data like;
> utf8::downgrade($_);
> then the concatination din't produce utf8 flag any more.
I found it's not so easy to utf8::downgrade "all" data, cause
the data is so complicated returned from XML Parser.
The next code is not good.
my $grove_builder = XML::Grove::Builder->new;
my $parser = XML::Parser::PerlSAX->new ( Handler => $grove_builder );
my $grove = eval { $parser->parse( Source => { SystemId => $file }) };
if ($@) { die "Parser error: $@"; }
my $element = $grove->{Contents};
use utf8;
utf8::downgrade($element);
no utf8;
utf8::downgrade likes SCALAR.
Any good idea to treat all data in it, like Data::Walker or
Data::Dump module?
Regards,
H.T.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
