/[cvs]/nfo/perl/libs/Data/Mungle/Transform/Encode.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Mungle/Transform/Encode.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by joko, Wed Apr 9 07:22:34 2003 UTC revision 1.6 by joko, Tue May 13 07:42:59 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## -------------------------------------------------------------------------  ## -------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.6  2003/05/13 07:42:59  joko
6    ##  + sub decode_hex_nybbles: e.g. required to decode binary data from cellular phones
7    ##
8  ##  Revision 1.5  2003/04/09 07:22:34  joko  ##  Revision 1.5  2003/04/09 07:22:34  joko
9  ##  childObj2string now inside Encode.pm, renamed to 'twingle_reference'  ##  childObj2string now inside Encode.pm, renamed to 'twingle_reference'
10  ##  ##
# Line 36  our @EXPORT_OK = qw( Line 39  our @EXPORT_OK = qw(
39    &utf8_to_latin    &utf8_to_latin
40    &utf8_to_latin_scalar    &utf8_to_latin_scalar
41    &twingle_reference    &twingle_reference
42      &decode_hex_nybbles
43  );  );
44    
45    
# Line 126  sub twingle_reference { Line 130  sub twingle_reference {
130    return $string;    return $string;
131  }  }
132    
133    sub decode_hex_nybbles {
134      my $data = shift;
135      my @buf;
136      for (my $i = 0; $i <= length($data); $i = $i + 2) {
137        my $nybble = substr($data, $i, 2);
138        push @buf, chr(hex($nybble));
139      }
140      return join('', @buf);
141    }
142    
143    
144  1;  1;
145  __END__  __END__
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed