Added bd.pl

README.md

@@ -21,6 +21,20 @@ and around and be annoying about the fact that they fail.  Then the rule
 of thumb goes without saying: "no green, no commit".
 
 
+### bd.pl ###
+
+Binary dump.  Reads STDIN, 4 bytes at a time and displays it in similar way as
+`hexdump(1)` does with `-C` option (Canonical hex+ASCII display)
+
+Example:
+
+    $ echo "Hello world" | ./bd.pl
+    00000000  01001000 01100101 01101100 01101100  |Hell|
+    00000004  01101111 00100000 01110111 01101111  |o wo|
+    00000008  01110010 01101100 01100100 00001010  |rld.|
+    $
+
+
 ### mkexec.pl ###
 
 Make executable script for you and heat up vim.  Accepts filename as parameter.

bin/bd.pl

@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $BUF_LENGTH = 4;
+my $ADR_LENGTH = 8;
+
+binmode STDIN;
+
+my $buff;
+my $addr = 0;
+while (read STDIN, $buff, $BUF_LENGTH) {
+    my $len = length $buff;
+    my @bytes = unpack "W" x $len, $buff;
+    my @b = map { sprintf "%08b", $_ } @bytes;
+    my $b = join " ",  @b;
+    my $h = join "", map {
+            $_ = 0x2e if $_ > 0x7f || $_ < 0x20;
+            sprintf "%c", $_
+        } @bytes;
+    my $bw = $BUF_LENGTH * 9 - 1;
+    printf
+        "%s  %s  |%s|\n",
+        sprintf ("%0${ADR_LENGTH}x", $addr),
+        sprintf ("%-${bw}s", $b),
+        sprintf ("%-${BUF_LENGTH}s", $h)
+    ;
+    $addr += $BUF_LENGTH;
+}