--. --- - .--. . .-. .-..

   1: #!/usr/bin/perl -nietianmsurwdkgohvf_l_pjbxcyzq
   2: #   --. --- -  .--. . .-. .-..
   3: y/-. //cd;for$^(split){for$b(1..80){$_=int($b/27)
   4: .$b/9%3 .$b/3%3 .$b# by  JH
   5: %3;/[12]0/||do{y/120/.-/d;$^eq
   6: $_&&print substr$^I,$c,1;$c++}}$c=0}  # and RC

Comment on --. --- - .--. . .-. .-.. Download Code

Replies are listed 'Best First'.
RE: --. --- - .--. . .-. .-.. by joey (Initiate) on Jan 22, 2000 at 08:46 UTC
Er, this was really by me, lost my log in cookie or something.	[reply]
RE: RE: --. --- - .--. . .-. .-.. by Lord Rau (Novice) on Feb 04, 2000 at 01:24 UTC
So what the heck does it do!?!?!?!	[reply]
RE: --. --- - .--. . .-. .-.. by Anonymous Monk on Feb 02, 2000 at 14:55 UTC
`#!/usr/bin/perl -w -nietianmsurwdkgohvf_l_pjbxcyzq # --. --- - .--. . .-. .-.. use strict;my$c;y/-. //cd;for$^(split){for$b(1..80){$_=int($b/27) .$b/9%3 .$b/3%3 .$b# by JH %3;/[12]0/\|\|do{y/120/.-/d;$^eq $_&&print substr$^I,$c,1;$c++}}$c=0} # and RC` [download] Every post should use strict and -w whatever the program does ;-)	[reply] [d/l]
It's a morse reader. RE: --. --- - .--. . .-. .-.. by Rasputin (Initiate) on Mar 06, 2000 at 21:58 UTC
If you run the script, it waits on stdin. pass it the pattern, it says; gotperl If you pass it ... --- ... it says sos It's a morse code interpreter - nice.....	[reply]
RE: --. --- - .--. . .-. .-.. by Xavier (Novice) on Feb 04, 2000 at 03:05 UTC
This reminds me of something I was looking at recently. And yes, I know it is C... ftp://ftp.uu.net/pub/ioccc/1986/hague.c (sorry about those blank posts. I never did press submit or stumbit, as the case may be)	[reply]
RE: --. --- - .--. . .-. .-.. by ChuckularOne (Prior) on Apr 17, 2000 at 22:34 UTC
Being a ham, I played with this thing for about a half hour :-) I noticed that it does not recognize ---- (The letter H) or numbers but other than that, pretty neat! KF4JPE Your Humble Servant, -Chuck	[reply]
RE: --. --- - .--. . .-. .-.. by setantae (Scribe) on Jan 28, 2000 at 04:49 UTC
This has made my eyes go funny...	[reply]