| INTERCAL::Charset::Baudot(3pm) | User Contributed Perl Documentation | INTERCAL::Charset::Baudot(3pm) |
Charset::Baudot - allows to use Baudot string constants in ASCII programs (and v.v.)
use Charset::Baudot 'baudot2ascii';
my $a = baudot2ascii"(Baudot text)";
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.
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 N/A
23 Q q 1 POUND
24 O o 9 NOT
25 B b ? delete
26 G g & N/A
27 Figures Figures Symbols Symbols
28 M m . %
29 X x / _
30 V v ; N/A
31 Lowercase Lowercase Letters Letters
This module is part of CLC-INTERCAL.
Copyright (C) 1999, 2000, 2002, 2006, 2007 Claudio Calvelli, all rights reserved
See files README and COPYING in the distribution for information.
A qualified psychiatrist.
| 2023-05-18 | perl v5.36.0 |