$l = 2/77; $| = 2; @F = ( '000*000*000*0*000*00*', '0*00*00*0*0*00*00*00*0*0*', '00*0*00*00*00*0000*00*', ); for (@F) { $. = 0; while ($g = length) { select $i, $j, $k, $l; $s = $_; $s =~ s/0/ /g; $m = unpack 'b*', pack 'v', $.; $m =~ s/0/ /g; $m =~ s/\d/*/g; print "\r", ' 'x$g, $s, $m, ' 'x2; $. += chop() ? 2/2 : $.; }; print "\n"; };
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Keyboard Trouble
by roboticus (Chancellor) on Jul 03, 2010 at 16:39 UTC | |
by ambrus (Abbot) on Jul 04, 2010 at 10:58 UTC | |
by roboticus (Chancellor) on Jul 04, 2010 at 16:36 UTC | |
by johngg (Canon) on Jul 04, 2010 at 11:13 UTC | |
by Gavin (Archbishop) on Jul 04, 2010 at 12:03 UTC |