#!/usr/bin/env perl

# ch-1.pl - Encode text into binary morse code
#
# Ryan Thompson <rjt@cpan.org>

use 5.010;
use warnings;
use autodie;
use strict;
use utf8;
no warnings 'uninitialized';
use Text::Trim;

# Include the morse code table generated by ../extras/fetch-morse.pl
use lib qw< ../extras >;
eval { require 'morse_code.pl' };
die "Run fetch-morse.pl in ../extras first" if $@;
my %morse = morse_hash();

# Text from stdin or filenames specified on the command line
while ( $_ = <<>> ) {
    trim;
    s/\s+/ /;   # Consolidate internal whitespace (and tabs) to single space
    say join '', map { morse_bin($_) } split '';
}

# Return morse binary for a character
# See challenge description for the specification of this, but basically
# dot: 1, dash: 111, 0 in between dots/dashes, and 000 between each char
# Undefined characters return an empty string
sub morse_bin {
    my $ch = shift;
    my %map = ( '.' => '1',   '-' => '111' );
    return '0000' if $ch eq ' '; # Word separator, 7 0s but 3 from char sep
    return '' if not exists $morse{$ch};
    my $morse = join '0', map { $map{$_} } split '', $morse{$ch};

    $morse . '000'; # Char separator
}