3 my $code = shift @ARGV;
6 $code =~ s/-/1110000/g;
7 $code =~ s/\//000000/g;
9 my $ones = ($code =~ y/1/1/);
10 my $len = length $code;
13 $code .= '0' x (8 - ($len % 8));
16 $code =~ s/(.{8})/\t0b$1,\n/g;
18 my $ratio = sprintf('%.1f', 100*$ones/$len);
19 print "\t/* $len bits, $ratio\% on */\n", $code;