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 |
## |
## |
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 |
|
|
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__ |