1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
<html>
<head>
<link href="../lg.css" rel="stylesheet" type="text/css" media="screen, projection" />
<link rel="shortcut icon" href="../favicon.ico" />
<title>-- --- .-. ... . LG #113</title>
<style type="text/css" media="screen, projection">
<!--
-->
</style>
<link rel="alternate" type="application/rss+xml" title="LG RSS" href="lg.rss" />
<link rel="alternate" type="application/rdf+xml" title="LG RDF" href="lg.rdf" />
<link rel="alternate" type="application/atom+xml" title="LG Atom" href="lg.atom.xml" />
</head>
<body>
<img src="../gx/2003/newlogo-blank-200-gold2.jpg" id="logo" alt="Linux Gazette"/>
<p id="fun">...making Linux just a little more fun!</p>
<div class="content articlecontent">
<div id="previousnexttop">
<A HREF="okopnik.html" ><-- prev</A> | <A HREF="orr.html" >next --></A>
</div>
<h1>-- --- .-. ... .</h1>
<p id="by"><b>By <A HREF="../authors/oregan.html">Jimmy O'Regan</A></b></p>
<p>
<p class="editorial">[ For those who have not yet learned to read Morse
code, you could just save this page and run "perl -x oregan.html" over it
to read it in boring old English (yes, there's Deep Magic here.)
Conversely, the <a href="http://ppt.perl.org/">Perl Power Tools project</a>
contains the '<a
href="http://search.cpan.org/src/SDAGUE/ppt-0.12/bin/demorse">demorse</a>'
utility, which can be used the same way. Or you can use a Morse dictionary.
Or you can just remain forever mystified. Your choice. Oh, and happy April
1st to all. :) -- Ben ]</p>
<hr>
<!--
#!/usr/bin/perl -w
# Hacked up by Ben Okopnik from "demorse" by abigail and sdague
my %t = reverse (
0 => '-----', 1 => '.----', 2 => '..---', 3 => '...--',
4 => '....-', 5 => '.....', 6 => '-....', 7 => '--...',
8 => '---..', 9 => '----.', a => '.-', b => '-...',
c => '-.-.', d => '-..', e => '.', f => '..-.',
g => '--.', h => '....', i => '..', j => '.---',
k => '-.-', l => '.-..', m => '--', n => '-.',
o => '---', p => '.--.', q => '--.-', r => '.-.',
s => '...', t => '-', u => '..-', v => '...-',
w => '.--', x => '-..-', y => '-.--', z => '--..',
'.' => '.-.-.-', ',' => '--..--', ':' => '---...', '?' => '..--..',
"'" => '.----.', '-' => '-....-', '/' => '-..-.', '(' => '-.--.-',
')' => '-.--.-', '"' => '.-..-.', ' ' => '-...-'
);
while (<DATA>) {
next if /[\w>]/;
next if /^\s*$/;
s/([-.]+) ?/exists $t{$1} ? $t{$1} : die "$1: unknown token"/ge;
print;
}
__END__
-->
- .... --- ..- --. .... .-- . .-.. .. ...- . .. -. - .. -- . ... --- ..-. .-. ... ... .- -. -.. ..-. . . -.. .-. . .- -.. . .-. ... --..-- .-- . ... .... --- ..- .-.. -.. -- .- -.- . ... ..- .-. . - --- -. . ...- . .-. ..-. --- .-. --. . - - .... . --- .-.. -.. .-- .- -.-- ... .-.-.- -- --- .-. ... . -.-. --- -.. . -- .- -.-- -... . .- ... .-.. --- .-- .-- .- -.-- --- ..-. --. . - - .. -. --. -. . .-- ... - .... . ... . -.. .- -.-- ... --..-- -... ..- - .. ..-. -.-- --- ..- ... .... --- ..- .-.. -.. ..-. .. -. -.. -.-- --- ..- .-. ... . .-.. ..-. - .-. .- .--. .--. . -.. .. -. ... --- .-.. .. - .- .-. -.-- -.-. --- -. ..-. .. -. . -- . -. - --..-- -.-- --- ..- .----. .-.. .-.. -... . --. .-.. .- -.. --- ..-. .- -.- -. --- .-- .-.. . -.. --. . --- ..-. -- --- .-. ... . -.-. --- -.. . --..-- .- ... -.-- --- ..- .- -. -.. -.-- --- ..- .-. ..-. . .-.. .-.. --- .-- .--. .-. .. ... --- -. . .-. ... - .- .--. --- ..- - -.-- --- ..- .-. .--. .-.. .- -. ... --- ..-. ..- .--. .-. .. ... .. -. --. --- -. - .... . .--. .-.. ..- -- -... .. -. --. .-.-.- ..-. --- .-. - .... --- ... . --- ..-. -.-- --- ..- .-- .... --- .- .-. . -. .----. - .. -. -.-. .-.. .. -. . -.. - --- .-.. . .- .-. -. -- --- .-. ... . -.-. --- -.. . --..-- -... ..- - .-- .... --- -.. --- .... .- ...- . .- .-.. .. -. ..- -..- .-. ..- -. -. .. -. --. -.-. --- -- .--. ..- - . .-. .- ...- .- .. .-.. .- -... .-.. . --..-- -.-- --- ..- -.-. .- -. .- .-.. .-- .- -.-- ... .. -. ... - .- .-.. .-.. - .... . -... ... -.. --. .- -- . ... .--. .- -.-. -.- .- --. . .- -. -.. ..- ... . - .... . -- --- .-. ... . .--. .-. --- --. .-. .- -- - .... --- ... . -.-. .-. .- --.. -.-- -.-. .- .-.. .. ..-. --- .-. -. .. .- -. ... ... .- .-- ..-. .. - - --- .-. . .-.. . .- ... . - --- .- -. ..- -. ... ..- ... .--. . -.-. - .. -. --. .-- --- .-. .-.. -.. .-.-.- -... -.-- -.. . ..-. .- ..- .-.. - --..-- .. - ... .--. . .-.. .-.. ... --- ..- - . .- -.-. .... -.. --- - .- -. -.. -.. .- ... .... .- ... -.. .. - .- -. -.. -.. .- .-- .-. . ... .--. . -.-. - .. ...- . .-.. -.-- .-.-.- .. ..-. -.-- --- ..- .. -. ...- --- -.- . .. - .- ... -- --- .-. ... . -....- ... --..-- -.-- --- ..- --. . - -- ..- -.-. .... -... . - - . .-. --- ..- - .--. ..- - ---... - .... . - . .-.. . --. .-. .- .--. .... ..-. .- -. ... .- -- --- -. --. -.-- --- ..- .-- .. .-.. .-.. ... ..- .-. . .-.. -.-- -... . .--. .-.. . .- ... . -.. .-.-.- .--. . .-. .-.. ..-. .- -. ... -.-. .- -. ..-. . . .-.. .... .- .--. .--. -.-- --..-- - .... .- -. -.- ... - --- - .... . .-- --- .-. -.- --- ..-. -.. .- -- .. .- -. -.-. --- -. .-- .- -.-- .-.-.- ..- ... .. -. --. .... .. ... .- -.-. -- . ---... ---... -- --- .-. ... . -- --- -.. ..- .-.. . .-- .... .. -.-. .... -.-. --- -- . ... .-- .. - .... .- -.-. -- . ---... ---... -... .-.. . .- -.-. .... -.-- --- ..- -.-. .- -. .-- .-. .. - . -.-- --- ..- .-. .--. . .-. .-.. ... -.-. .-. .. .--. - ... .. -. -- --- .-. ... . -.-. --- -.. . .-.-.- -... . --. .. -. -. . .-. ... -. . . -.. -. .----. - ..-. . .- .-. --..-- .... --- .-- . ...- . .-. ---... ... .. -- .--. .-.. -.-- .-- .-. .. - . -.-- --- ..- .-. -.-. --- -.. . .- ... ..- ... ..- .- .-.. --..-- -... ..- - .- -.. -.. .- .----. ..- ... . .- -.-. -- . ---... ---... -- --- .-. ... . .----. .-.. .. -. . - --- - .... . ... - .- .-. - --- ..-. -.-- --- ..- .-. ... -.-. .-. .. .--. - --..-- .- -. -.. .. - .----. .-.. .-.. -... . -.-. --- -. ...- . .-. - . -.. ..-. --- .-. -.-- --- ..- .-.-.-
</p>
<!-- *** BEGIN author bio *** -->
<P>
<P>
<!-- *** BEGIN bio *** -->
<hr>
<P>
<img ALIGN="LEFT" ALT="[BIO]" SRC="../gx/2004/authors/oregan.jpg" class="bio">
<em>
<!-- ../110/lg_laundrette.html#nottag.15 :) -->
Jimmy is a single father of one, who enjoys long walks... Oh, right.
<p> Jimmy has been using computers from the tender age of seven, when his father
inherited an Amstrad PCW8256. After a few brief flirtations with an Atari ST
and numerous versions of DOS and Windows, Jimmy was introduced to Linux in 1998
and hasn't looked back.
<p> In his spare time, Jimmy likes to play guitar and read: not at the same time,
but the picks make handy bookmarks.
</em>
<br CLEAR="all">
<!-- *** END bio *** -->
<!-- *** END author bio *** -->
<div id="articlefooter">
<p>
Copyright © 2005, Jimmy O'Regan. Released under the <a
href="http://linuxgazette.net/copying.html">Open Publication license</a>
unless otherwise noted in the body of the article. Linux Gazette is not
produced, sponsored, or endorsed by its prior host, SSC, Inc.
</p>
<p>
Published in Issue 113 of Linux Gazette, April 2005
</p>
</div>
<div id="previousnextbottom">
<A HREF="okopnik.html" ><-- prev</A> | <A HREF="orr.html" >next --></A>
</div>
</div>
<div id="navigation">
<a href="../index.html">Home</a>
<a href="../faq/index.html">FAQ</a>
<a href="../lg_index.html">Site Map</a>
<a href="../mirrors.html">Mirrors</a>
<a href="../mirrors.html">Translations</a>
<a href="../search.html">Search</a>
<a href="../archives.html">Archives</a>
<a href="../authors/index.html">Authors</a>
<a href="../contact.html">Contact Us</a>
</div>
<div id="breadcrumbs">
<a href="../index.html">Home</a> >
<a href="index.html">April 2005 (#113)</a> >
Article
</div>
<img src="../gx/2003/sit3-shine.7-2.gif" id="tux" alt="Tux"/>
</body>
</html>
|
