Commit 26400646 authored by Jan Kasprzak's avatar Jan Kasprzak
Browse files

morse.pl: morse code to binary char arrays generator

parent ccfee457
#!/usr/bin/perl -w
my $code = shift @ARGV;
$code =~ s/\./10000/g;
$code =~ s/-/1110000/g;
$code =~ s/\//000000/g;
my $ones = ($code =~ y/1/1/);
my $len = length $code;
if ($len % 8 != 0) {
$code .= '0' x (8 - ($len % 8));
}
$code =~ s/(.{8})/\t0b$1,\n/g;
my $ratio = sprintf('%.1f', 100*$ones/$len);
print "\t/* $len bits, $ratio\% on */\n", $code;
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment