|
/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Acme-UTF1/blib/lib/Acme/UTF1.pm |
Acme::UTF1
use Acme::UTF1; use Encode qw( encode decode );
# read utf-1 bytes from the input
while ( my $bytes = <> ) {
# decode to characters, and print
my $chars = decode('utf-1', $bytes);
print $chars;
}
Implements the utf-1 encoding for perl.
utf-1 is a way of encoding unicode characters so that they can be sent across networks that are unable to handle the full 8 bits normally required by utf-8. It will convert any character into a sequence of bytes, of which only the bottom bit is set, and is able to convert such a sequence back to characters.
utf-7.
Tom Insam <tom@jerakeen.org>
|
/home/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Acme-UTF1/blib/lib/Acme/UTF1.pm |