Inspired by kennethk's second approach above, this avoids the reversible complexity of either '(B8)*' or '(b7)*' in favor of 'C*' simplicity:
c:\@Work\Perl\monks>perl -wMstrict -le "my $out; $out .= sprintf '%07b', $_ for unpack 'C*', '4B3A'; print qq{'$out'}; " '0110100100001001100111000001'
Give a man a fish: <%-{-{-{-<
In reply to Re^3: Convert ASCII string to 7-bit binary string
by AnomalousMonk
in thread Convert ASCII string to 7-bit binary string
by Pascal666
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |