Useless Dichotomic Morse to Human converter

Kevin DEHLINGER — Fri, 17 Aug 2007 13:51:24 +0000

I'm using the binary decision tree approach to convert Morse Code to "Human"

Here's a part of the tree (not complete)

Lets decipher "â€” Â· â€”":
First mark is a dash -> next level and right node
Second mark is a dot -> next level and left node
Third mark is a dash -> next level and right node
"â€” Â· â€”" = K

use strict;

my $index;
while(<>)
{
chomp;
for(split / +/)
{
$index=0;
for(split //)
{

{
$index=($index+1)*2-1;
}

{
$index=($index+1)*2;
}
else
{
print " ";
$index=0;
}
}
print @morse_table[$index-1] if $index>0;
$index=0;
}
print $/;
}

Download this code: morse.pls

Projects Log » useless

Useless Dichotomic Morse to Human converter