XMLTV::Data::Recursive::Encode − Encode/Decode Values In A Structure
use
XMLTV::Data::Recursive::Encode;
XMLTV::Data::Recursive::Encode−>decode('euc−jp',
$data);
XMLTV::Data::Recursive::Encode−>encode('euc−jp',
$data);
XMLTV::Data::Recursive::Encode−>decode_utf8($data);
XMLTV::Data::Recursive::Encode−>encode_utf8($data);
XMLTV::Data::Recursive::Encode−>from_to($data,
$from_enc, $to_enc[, $check]);
XMLTV::Data::Recursive::Encode visits each node of a structure, and returns a new structure with each node’s encoding (or similar action). If you ever wished to do a bulk encode/decode of the contents of a structure, then this module may help you.
decode
my $ret = XMLTV::Data::Recursive::Encode−>decode($encoding, $data, [CHECK]);
Returns a structure containing nodes which are decoded from the specified encoding.
encode
my $ret = XMLTV::Data::Recursive::Encode−>encode($encoding, $data, [CHECK]);
Returns a structure containing nodes which are encoded to the specified encoding.
decode_utf8
my $ret = XMLTV::Data::Recursive::Encode−>decode_utf8($data, [CHECK]);
Returns a structure containing nodes which have been processed through decode_utf8.
encode_utf8
my $ret = XMLTV::Data::Recursive::Encode−>encode_utf8($data);
Returns a structure containing nodes which have been processed through encode_utf8.
from_to
my $ret = XMLTV::Data::Recursive::Encode−>from_to($data, FROM_ENC, TO_ENC[, CHECK]);
Returns a structure containing nodes which have been processed through from_to.
Tokuhiro Matsuno <tokuhirom AAJKLFJEF GMAIL COM>
gfx
This module is inspired from Data::Visitor::Encode, but this module depended to too much modules. I want to use this module in pure-perl, but Data::Visitor::Encode depend to XS modules.
Unicode::RecursiveDowngrade does not supports perl5’s Unicode way correctly.
Copyright (C) 2010 Tokuhiro Matsuno All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.