You are viewing the version of this documentation from Perl 5.18.1. View the latest version



Encode::GSM0338 -- ESTI GSM 03.38 Encoding


use Encode qw/encode decode/; 
$gsm0338 = encode("gsm0338", $utf8);    # loads Encode::GSM0338 implicitly
$utf8    = decode("gsm0338", $gsm0338); # ditto


GSM0338 is for GSM handsets. Though it shares alphanumerals with ASCII, control character ranges and other parts are mapped very differently, mainly to store Greek characters. There are also escape sequences (starting with 0x1B) to cover e.g. the Euro sign.

This was once handled by Encode::Bytes but because of all those unusual specifications, Encode 2.20 has relocated the support to this module.


Unlike most other encodings, the following aways croaks on error for any $chk that evaluates to true.

$gsm0338 = encode("gsm0338", $utf8      $chk);
$utf8    = decode("gsm0338", $gsm0338,  $chk);

So if you want to check the validity of the encoding, surround the expression with eval {} block as follows;

eval {
  $utf8    = decode("gsm0338", $gsm0338,  $chk);
if ($@){
  # handle exception here


ESTI GSM 03.38 Encoding itself.

Mapping \x00 to '@' causes too much pain everywhere.

Its use of \x1b (escape) is also very questionable.

Because of those two, the code paging approach used use in ucm-based Encoding SOMETIMES fails so this module was written.