/ 
PerlPowerTools-1.045
River stage one • 1 direct dependent • 1 total dependent
/ morse

NAME

morse - translate text to morse code

SYNOPSIS

morse [-frs] [file ...]

morse [-rs] [string ...]

DESCRIPTION

morse takes input from either a list of files, standard input or command line arguments. Morse code can be given in either short form (-- --- .-. ... .) or long form (daw daw, daw daw daw, dit daw dit, dit dit dit). Long form is used by default.

Short-form morse uses both spaces and newline characters as a separator. Long-form morse requires a space between each 'dit' or 'daw'. Long-form also requires a comma or newline character as a separator for each morse code.

A morse code document may be translated back to text. The program will terminate if it encounters a series of dots and dashes that it cannot translate.

OPTIONS

The following options are available:

-f

Treat command arguments as files instead of morse code strings.

-r

Decode input from morse to text.

-s

Process short-form morse (dots and dashes) instead of the default long-form. The argument '--' should precede any morse code provided as command arguments.

ENVIRONMENT

The working of morse is not influenced by any environment variables.

EXAMPLES

Decode short-form morse from stdin.

echo - .- --- | morse -rs

Decode long-form morse from stdin.

echo daw, dit daw, daw daw daw | morse -r

Decode short-form morse from argument list. Note that '--' terminates the processing of command options, so the first morse code is '-'.

morse -rs -- - .- ---

Decode long-form morse from argument list.

morse -r daw, dit daw, daw daw daw

Encode short-form morse from stdin.

echo foo | morse -s

Encode long-form morse from stdin.

echo foo | morse

Encode short-form morse from argument list.

morse -s tst txt

Encode long-form morse from argument list.

morse tst txt

Decode short-form morse from files.

morse -frs file1 file2

Decode long-form morse from files.

morse -fr file1 file2

Encode short-form morse from files.

morse -fs file1 file2

Encode long-form morse from files.

morse -f file1 file2

AUTHOR

The Perl implementation of morse was written by Abigail, perlpowertools@abigail.be. The program was extended by Michael Mikonos.

COPYRIGHT and LICENSE

This program is copyright by Abigail 1999.

This program is free and open software. You may use, copy, modify, distribute and sell this program (and any modified variants) in any way you wish, provided you do not restrict others to do the same.