Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

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

by Anonymous Monk
on Jan 22, 2000 at 08:39 UTC ( #2324=perlcraft: print w/replies, xml ) Need Help??

   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

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.
      So what the heck does it do!?!?!?!
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
    Every post should use strict and -w whatever the program does ;-)
      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.....
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)
RE: --. --- - .--. . .-. .-..
by ChuckularOne (Parson) 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
RE: --. --- - .--. . .-. .-..
by setantae (Scribe) on Jan 28, 2000 at 04:49 UTC
    This has made my eyes go funny...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlcraft [id://2324]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2017-12-16 11:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (450 votes). Check out past polls.

    Notices?