Morse code

#!/usr/bin/perl
$____=@____=split//,'';
$___=@___=split//,'hlrou';
$__=@__=split//,'aPent';
$/=@.=split//,'.rekc re hta sJ';
sub ____{print$____[--$____];}
sub ___{print$___[--$___];}
sub __{print$__[--$__];}
sub _{print$.[--$/];}

_.___.._.__;
_._.__.___..._._, _._.__..___;
_.__.._._.___;
_.___.__._._._.._._;
[download]

Comment on Morse code Download Code

Replies are listed 'Best First'.
RE: Morse code by Anonymous Monk on Jul 30, 2000 at 11:49 UTC
By the way, here are the actual morse codings: Just .--- ..- ... - another .- -. --- - .... . .-. Perl .--. . .-. .-.. hacker .... .- -.-. -.- . .-.	[reply]
Re: Morse code by PhilHibbs (Hermit) on Feb 20, 2004 at 14:43 UTC
#!/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]	[reply] [d/l]