Text::Control - Transforms of control characters
use Text::Control; Text::Control::to_dot("\x00\\Hi\x7fthere.\x80\xff"); # .\Hi.there... Text::Control::to_hex("\x00\\Hi\x7fthere.\x80\xff"); # \x00\\Hi\x7fthere.\x80\xff -- note the escaped backslash
These are transforms that I find useful for debugging. Maybe you will, too?
This module considers byte numbers 32 - 126 to be “printable”; i.e., they represent actual ASCII characters. Anything outside this range is thus “nonprintable”.
to_dot( OCTET_STRING )
Transforms each nonprintable byte into a dot (
., ASCII 46) and returns
to_hex( OCTET_STRING )
Transforms each nonprintable byte into the corresponding \x.. sequence,
appropriate for feeding into
eval(). For example, a NUL byte comes out as
In order to make this encoding reversible, backslash characters (
from_hex( FROM_TO_HEX )
This transforms the result of
to_hex() back into its original form.
I’m not sure this is actually useful :), but hey.
Felipe Gasper (FELIPE)
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.