Language::INTERCAL::Charset::Baudot3pm

Usage

    use Charset::Baudot 'baudot2ascii';
    my $a = baudot2ascii"(Baudot text)";

Overview

Charset::Baudot defines functions to convert between a subset of ASCII and a subset of nonstandard Baudot - the original Baudot allows only letters, numbers, and some punctuation. We assume that a "Shift to letters" code while already in letters mode means "Shift to lowercase" and "Shift to figures" while already in figures mode means "Shift to symbols". This allows to use up to 120 characters. However, for simplicity some characters are available in multiple sets, so the total is less than that.

Two functions, baudot2ascii and ascii2baudot, are exportable (but not exported by default). They do the obvious thing to their first argument and return the transformed string.

Baudot character table

The following are the characters recognised. As described, the "shift" characters have nonstandard meaning.

     set   Letters     Lowercase    Figures    Symbols
  code
    00       N/A          N/A         N/A        N/A
    01        E            e           3        Cents
    02       L/F          L/F         L/F        L/F    (line feed)
    03        A            a           -          +
    04      Space        Space       Space       Tab
    05        S            s          BELL        \
    06        I            i           8          #
    07        U            u           7          =
    08       C/R          C/R         C/R        C/R    (carriage return)
    09        D            d           $          *
    10        R            r           4          {
    11        J            j           '          ~
    12        N            n           ,         XOR
    13        F            f           !          |
    14        C            c           :          ^
    15        K            k           (          <
    16        T            t           5          [
    17        Z            z           "          }
    18        W            w           )          >
    19        L            l           2          ]
    20        H            h          N/A     backspace
    21        Y            y           6          @
    22        P            p           0          «
    23        Q            q           1        POUND
    24        O            o           9         NOT
    25        B            b           ?        delete
    26        G            g           &          ±
    27     Figures      Figures     Symbols    Symbols
    28        M            m           .          %
    29        X            x           /          _
    30        V            v           ;          »
    31    Lowercase    Lowercase    Letters    Letters

Pod errors

Hey! The above document had some coding errors, which are explained below:

Around line 144:

Non-ASCII character seen before =encoding in '«'. Assuming UTF-8