P is for Practical | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
Looks to be morse code:
perl -e 'my %rt; @rt{qw/.- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. -- -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --.. .-.-.- | !/}=("A".."Z","."," ","\n"); hashes the dots and dashes to the letters, comma, and period. for(split /\s+/,".--- ..- ... - | .- -. --- - .... . .-. | .--. . .-. .-.. | .... .- -.-. -.- . .-. .-.-.- !"){print $rt{$_};}' THen feeds your dots/dashes space delimited one by one as keys to the hash whereby the print prints out the letter. In reply to Re: Another JAPH
by OverlordQ
|
|