rgb-led-string: Christmas tree mod after real-world testing
[tinyboard.git] / projects / step-up / morse.pl
1 #!/usr/bin/perl -w
2
3 my $code = shift @ARGV;
4
5 $code =~ s/\./10000/g;
6 $code =~ s/-/1110000/g;
7 $code =~ s/\//000000/g;
8
9 my $ones = ($code =~ y/1/1/);
10 my $len = length $code;
11
12 if ($len % 8 != 0) {
13         $code .= '0' x (8 - ($len % 8));
14 }
15
16 $code =~ s/(.{8})/\t0b$1,\n/g;
17
18 my $ratio = sprintf('%.1f', 100*$ones/$len);
19 print "\t/* $len bits, $ratio\% on */\n", $code;