t/HexString.pm

   1
   2 package HexString;
   3
   4 use base qw(Exporter);
   5 our @EXPORT = qw(hex_string string_hex);
   6
   7 use utf8;
   8
   9 sub hex_string {
  10         my $string = shift;
  11         utf8::downgrade($string);
  12         $string =~ s{(.)}{sprintf("%.2x", ord($1))}eg;
  13         $string;
  14 }
  15
  16 sub string_hex {
  17         my $string = shift;
  18         $string =~ s{(..)}{chr(hex($1))}eg;
  19         $string;
  20 }
  21
  22 1;