hex2bin.pl: replace spaces with dots for better view

[terpinus.git] / hex2bin.pl

#!/usr/bin/perl

while (<>) {
        if (m/^([0-9A-F]+)$/) {
                $full = $&;
                $t = $1;
                $t =~ s/0/......../g;
                $t =~ s/1/......##/g;
                $t =~ s/2/....##../g;
                $t =~ s/3/....####/g;
                $t =~ s/4/..##..../g;
                $t =~ s/5/..##..##/g;
                $t =~ s/6/..####../g;
                $t =~ s/7/..######/g;
                $t =~ s/8/##....../g;
                $t =~ s/9/##....##/g;
                $t =~ s/A/##..##../g;
                $t =~ s/B/##..####/g;
                $t =~ s/C/####..../g;
                $t =~ s/D/####..##/g;
                $t =~ s/E/######../g;
                $t =~ s/F/########/g;
                print "$full\t$t\n";
        }
        else {
                print $_;
        }
}