#!/usr/local/bin/perl -w

$morse{a} = ".-";   $morse{q} = "--.-";  $morse{6} = "-....";
$morse{b} = "-..."; $morse{r} = ".-.";   $morse{7} = "--...";
$morse{c} = "-.-."; $morse{s} = "...";   $morse{8} = "---..";
$morse{d} = "-..";  $morse{t} = "-";     $morse{9} = "----.";
$morse{e} = ".";    $morse{u} = "..-";   $morse{' '} = "*";
$morse{f} = "..-."; $morse{v} = "...-";  $morse{'.'} = ".-.-.-";
$morse{g} = "--.";  $morse{w} = ".--";   $morse{','} = "--..--";
$morse{h} = "...."; $morse{x} = "-..-";  $morse{'?'} = "..--..";
$morse{i} = "..";   $morse{y} = "-.--";  $morse{':'} = "---...";
$morse{j} = ".---"; $morse{z} = "--..";  $morse{"'"} = ".----.";
$morse{k} = "-.-";  $morse{0} = "-----"; $morse{'-'} = "-....-";
$morse{l} = ".-.."; $morse{1} = ".----"; $morse{'('} = "-.--.-";
$morse{m} = "--";   $morse{2} = "..---"; # $morse{')'} = "-.--.-";
$morse{n} = "-.";   $morse{3} = "...--"; $morse{'"'} = ".-..-.";
$morse{o} = "---";  $morse{4} = "....-";
$morse{p} = ".--."; $morse{5} = ".....";

%alphabet = reverse %morse;
while (<>) {
  s/(.+?)\s/$alphabet{$1}/g;
  print "$_\n";
}
print "\n --- End of message ---\n";

[download]

In reply to Re: Morse code by PhilHibbs
in thread Morse code by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.